viết chương trình: tính tổng(biến T) 4 số nguyên dc nhập từ bàn phím là các biến a,b,c,d
2 câu trả lời
program baitap;
uses crt;
Var T; a,b,c,d : Integer;
begin
clrscr;
write('Hay nhap 4 so a,b,c,d: ');
readln('a,b,c,d');
T:=a+b+c+d
Writeln('Tong 4 so la: ' T);
end.
uses crt;
var a,b,c,d,T:integer;
begin
write('nhap a:');readln(a);
write('nhap b:');readln(b);
write('nhap c:');readln(c);
write('nhap d:');readln(d);
T:=a+b+c+d;
writeln('Tong=',T);
readln;
end.