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.