PHẦN MỀM PASCAL: Câu1: Viết chương trình nhập từ bàn phím hai số tự nhiên a & b. Hiển thị ra kết quả, màn hình, tổng, hiệu, tích, thương của hai số a & b. Câu2: Viết chương trình nhập vào một số nguyên và kiểm tra số vừa nhập là chẵn hay lẻ. CÁC BẠN GIÚP MÌNH GIẢI 2 CÂU NÀY TRÊN PHẦN MỀM PASCAL CHI TIẾT VỚI Ạ. CẢM ƠN CÁC BẠN MÌNH SẼ ĐÁNH GIÁ 5 SAO.

2 câu trả lời

câu 1:

program ct;

uses crt;

var a,b,T,tich,hieu:integer; thuong:real;

begin

clrscr;

write('nhap a:=');readln(a);

write('nhap b:=');readln(b);

T:=a+b;

hieu:=a-b;

tich:=a*b;

thuong:=a/b;

writeln('tong la:',T);

writeln('hieu la:',hieu);

writeln('tich la:',tich);

writeln('thuong la:',thuong);

readln

end.

câu 2:

program ct;

uses crt;

var a:integer;

begin

clrscr;

write('nhap so nguyen a:');readln(a);

if a mod 2=0 then writeln(a,'la so chan');

if a mod 2<>0 then writeln(a,' la so le');

readln

end.

1)

program ct;

uses crt;

var a,b,S,H,T,Th:real;

begin clrscr;

   write('Nhap hai so tu nhien a, b: ); readln(a,b);

     S:=a+b; H=a-b; T:=a*b; Th:=a/b;

   writeln('Tong a, b la: ',S:4:2);

   writeln('Hieu a, b la: ',H:4:2);

   writeln('Tich a, b la: ',T:4:2);

   writeln('Thuong a, b la: ',Th:4:2);

readln;

end.

2)

program ct;

uses crt;

var n:integer;;

begin clrscr;

   write('Nhap so nguyen n: ); readln(n);

   if n mod 2=0 then writeln(n,' la so chan');

   if n mod 2<>0 then writeln(n,' la so le');

readln;

end.

Học tốt!

Câu hỏi trong lớp Xem thêm
5 lượt xem
2 đáp án
14 giờ trước
5 lượt xem
2 đáp án
14 giờ trước