Question

viết chương trình pascal thể hiện thuật toán sau: chương trình tính tổng các số lẻ từ 1 đến 20

thuật toán: b1:i<--1; tong<--0.

b2: nếu i>20 chuyển tới bước 4.

b3: tong<--tong+i; i<--i+2 và quay lại bước 2.

b4: thông báo tổng và kết thúc thuật toán.

=>mong mọi người giúp tôi viêts chương trình nhé xin cám ơn rất nhìu ạ.

Answer 1

uses crt;
var t,i:integer;
begin
clrscr;
t:=0; i:=1;
while i<=20 do
begin
t:=t+i;
i:=i+2;
end;
writeln('Tong cac so le tu 1 toi 20 la: ',t);
readln;
end.