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 ạ.
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.
cám ơn nguyễn lê phước thịnh đã giúp tôi xin cám ơn rất nhìu