Lập chương trình tính s= (a+b)* (×+y). Với a,b,x,y là các số nguyên nhập từ bàn phím

0 bình luận về “Lập chương trình tính s= (a+b)* (×+y). Với a,b,x,y là các số nguyên nhập từ bàn phím”

1. Uses crt;
   var a,b,x,y:integer;s:longint;
   BEGIN
   clrscr;
   write(‘Nhap a: ‘);readln(a);
   write(‘Nhap b: ‘);readln(b);
   write(‘Nhap x: ‘);readln(x);
   write(‘Nhap y: ‘);readln(y);
   s:=(a+b)*(x+y);
   Writeln(‘S=’,s);
   readln
   END.

   Bình luận

2. program ctpt;

   uses crt;

     var a, b, x, y: integer;

   begin

              clrscr;

              write(‘Nhap a = ‘); readln(a);

              write(‘Nhap b = ‘); readln(b);

              write(‘Nhap x = ‘); readln(x);

              write(‘Nhap y = ‘); readln(y);

              writeln(‘S=’, (a+b)*(x+y));

              readln

   end.

   Bình luận