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

0 bình luận về “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”

1. 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.

   Bình luận

2. 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!

   Bình luận