Bài 1
program tinh tong;
uses crt;
var s,i,n:integer;
begin
s:=0;
for i:=1 to 10 do s:=s+1;
writeln ('tong cua s=',s);
readin
end.
Bài 2
program tinh_tong
uses crt;
var i,n:integer;
S:longint;
begin
n:=50; S:=1;
for i:=1 to 50 do S: S+i;
write(' tong cua',n,' so tu nhien dau
,S); tien la '
readin.
end.
Mình gửi ảnh chứ vt ko đc
