viết chương trình tính tổng bốn số nguyên

0 bình luận về “viết chương trình tính tổng bốn số nguyên”

1.  Program tinhtong;

   Uses crt;

   Var a,b,c,d,s : real;

   Begin

         Clrscr;

         Write (‘ nhap a’,a);

         Readln(a);

         Write (‘ nhap b’,b);

         Readln(b);

         Write (‘ nhap c’,c);

         Readln(c);

         Write ( ‘ nhap d’,d);

         S:=0;

         S:= a+b+c+d;

         Write(‘ tong cua 4 so la’,S:2:2);

         Readln;

   End.

   Bình luận

2. program TBC;
   uses crt;
   var a: integer;
         s: real;
   begin
   clrscr;
   writeln(‘nhap so a: ‘); readln(a);
   s:= s+a;
   writeln(‘nhap so b: ‘); readln(a);
   s:= s+a;
   writeln(‘nhap so c: ‘); readln(a);
   s:= s+a;
   writeln(‘nhap so d: ‘); readln(a);
   s:= s+a;
   s:= s/4;
   writeln(‘TBC la: ‘,s:2:1);
   readln
   end.

   Bình luận