Viết chương trình nhập vào 4 số tính tổng 4 số đó

0 bình luận về “Viết chương trình nhập vào 4 số tính tổng 4 số đó”

1. Program tinh_tong;

   Uses crt;

   Var a,b,c,d,S: integer;

   Begin 

   Writeln (‘nhap cac so a,b,c,d:’); 

   Readln (a,b,c,d);

   S:=a+b+c+d;

   Writeln (‘Tong cua 4 so tren la:’,S);

   Readln

   End.

   Bình luận

2. uses crt;
   var a,b,c,d : real;
   begin
   write(‘Nhap 4 so :’);
   readln(a,b,c,d);
   write(‘Tong 4 so la :’,a+b+c+d:3:0);
   readln
   end.

   Bình luận