1/
for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
các từ: "for" "to" "do" là từ khóa
lưu ý: giá trị đầu phải nhỏ hơn giá trị cuối
2/
uses crt;
var i,n,s: integer;
begin
clrscr;
write ('nhap n: '); readln (n);
for i:=1 to n do s:=s+i;
writeln ('tong la: ',s);
readln;
end.
3/
uses crt;
var i,n,s: integer;
begin
clrscr;
write ('nhap n: '); readln (n);
for i:=1 to n do if i mod 2<>0 then s:=s+i;
writeln ('tong la: ',s);
readln;
end.
4/
uses crt;
var i,n,s: integer;
begin
clrscr;
write ('nhap n: '); readln (n);
for i:=1 to n do if i mod 2=0 then s:=s+i;
writeln ('tong la: ',s);
readln;
end.
5/
uses crt;
var i,n,s: integer;
begin
clrscr;
write ('nhap n: '); readln (n);
n:=n*10+2;
i:=2;
repeat
i:=i+10;
s:=s+i;
until i=n;
writeln ('tong la: ',s);
readln;
end.
9/
uses crt;
var i,n,s: longint;
begin
clrscr;
write ('nhap n: '); readln (n);
n:=n*10+2;
i:=2;
repeat
i:=i+10;
s:=s*i;
until i=n;
writeln ('tong la: ',s);
readln;
end.
4 câu còn lại bạn khongbiet_20 trả lời nha