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

6. hình 1

7. hình 2

8. hình 3

9. hình 4

10.

     Câu 6: Nhập x = 5

                P=1.2.3.4.5=120

     Câu 7: Nhập x = 9

                P=1.3.5.7.9=945

     Câu 8: Nhập x = 8

                P = 2.4.6.8 =384

     Câu 9: Nhập x = 5

                P=12 . 22 . 32 . 42 . 52=18 450 432