viet chuong trinh nhap vao 4 so tinh tong cua 4 so do

0 bình luận về “viet chuong trinh nhap vao 4 so tinh tong cua 4 so do”

1. program oken;
   uses crt;
   var a,b,c,d:integer;
   begin
           clrscr;
           write(‘nhap so thu 1: ‘); readln(a);
           write(‘nhap so thu 2: ‘); readln(b);
           write(‘nhap so thu 3: ‘); readln(c);
           write(‘nhap so thu 4: ‘); readln(d);
           writeln(‘Tong cua 4 so: ‘,a+b+c+d);
           readln;
   end.

   Bình luận

2. Program tong;

   Uses crt;

   Var a1,a2,a3,a4,S : real;

   Begin clrscr;

   Writeln(‘Nhap 4 so tu ban phim lan luot la :’); readln(a1,a2,a3,a4);

   S :=a1+a2+a3+a4;

   Writeln(‘Tong cua 4 so nhap tu ban phim la :’, S);

   Readln

   End.

   Bình luận