Tin học Viết thuật toán và phương trình tính tổng từ 10 đến 19 Giúp em với 24/07/2021 By Quinn Viết thuật toán và phương trình tính tổng từ 10 đến 19 Giúp em với
input: các số từ 10→19 output: tổng của các số từ 10→19 program so; uses crt; var S,i:integer; begin clrscr; S: = 0; for i:=10 to 19 do S:=S+i; writeln( ‘Tong = ’, S); readln; end. Trả lời
Thuật toán: B1: s:=0; B2: i:=10; B3: s←s+i; i←i+1; B4: Nếu i<=19 thì quay lại B3 B5: In s ra màn hình và kết thúc Chương trình program tinhtong; var i,s:byte; begin clrscr; s:=0; for i:=10 to 19 do s:=s+i; write(‘Tong la: ‘,s); readln end. Trả lời
input: các số từ 10→19
output: tổng của các số từ 10→19
program so;
uses crt;
var S,i:integer;
begin
clrscr;
S: = 0;
for i:=10 to 19 do S:=S+i;
writeln( ‘Tong = ’, S);
readln;
end.
Thuật toán:
B1: s:=0;
B2: i:=10;
B3: s←s+i; i←i+1;
B4: Nếu i<=19 thì quay lại B3
B5: In s ra màn hình và kết thúc
Chương trình
program tinhtong;
var i,s:byte;
begin
clrscr;
s:=0;
for i:=10 to 19 do
s:=s+i;
write(‘Tong la: ‘,s);
readln
end.