Mô tả thuật toán và viết chương trình tính tổng các số từ 1-10

2 câu trả lời

thuật toán:

B1: s<--0; i<--1;

B2: nếu i>10 thì xuất s;

B3: s<--s+i;

B4: i<--i+1;

B5: quay lại B2;

code:

uses crt;

var i,s:longint;

begin

clrscr;

s:=0;

for i:=1 to 10 do s:=s+i;

write(s);

readln

end.

Mô tả thuật toán:

1,chạy chương trình từ 1 đến 10;

2,gõ công thức tính tổng;

3,hiện kết quả.

code:

var i,t:longint;
begin
readln;
for i:=1 to 10 do
t:=t+i;
write('tong cac so tu 1 den 10 la:',t);
end.