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.