1. Nêu cú pháp của câu lệnh lặp với số lần biết trước và giải thích các thành phần có trong cú pháp 2. Viết chương trình tính tổng: S= 1+2+3+…+n với n

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

Trả lời