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é