Mô tả thuật toán tính tổng các số lẻ từ 1 đến 7 26/07/2021 Bởi Kaylee Mô tả thuật toán tính tổng các số lẻ từ 1 đến 7
thuật toán: B1:chạy i từ 1 đến 7 +Kiểm tra: if i mod 2=0 then s:=s+i; B2:viết s và kết thúc. program tongsole; uses crt; var i,t:integer; begin clrscr; t:=0; for i:=1 to 7 do if i mod 2=1 then t:=t+i; write(‘Tong cac so le tu 1 den 7 la: ‘,t); readln end. Cho xin ctlhn nhé Bình luận
thuật toán:
B1:chạy i từ 1 đến 7
+Kiểm tra: if i mod 2=0 then s:=s+i;
B2:viết s và kết thúc.
program tongsole;
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 7 do
if i mod 2=1 then t:=t+i;
write(‘Tong cac so le tu 1 den 7 la: ‘,t);
readln
end.
Cho xin ctlhn nhé