viết chương trình pascal tính tổng a cộng 10 với a là số nguyên
2 câu trả lời
program az;
uses Crt;
var a,T : longint;
begin
clrscr;
Write('Nhap a = '); readln(a);
T := a + 10;
Write('Tong a + 10 la : ',T);
readln
end.
uses crt;
var i,s,n: integer;
begin
clrscr;
write('Nhap vao so n = ');readln(n);
i:=1;
s:=0;
while i<=n do
begin
s:=s+i;
inc(i);
end;
writeln('Tong cua ',n,' so tu nhien dau tien la ',S);
readln;
end.
