Viết chương trình tính tổng 10 số tự nhiên đầu tiên
Giải thích
Lời giải:
program bai1;
user crt;
var n,s,i:longint;
begin
write('n= ');
readln(n);
s:=0;
for i:=1 to 10 do s:=s+i;
write('Tong cua 10 so tu nhien dau tien la',s);
readln;
end.
Lời giải:
program bai1;
user crt;
var n,s,i:longint;
begin
write('n= ');
readln(n);
s:=0;
for i:=1 to 10 do s:=s+i;
write('Tong cua 10 so tu nhien dau tien la',s);
readln;
end.