Question

Mk đang cần gấp ạ

Nêu cách phân tích để thực hiện tính tổng các số chẵn lẻ liên tiếp để hiển thị ra Smax(tổng lớn nhất ) và nhỏ hơn 2073

Answer 1

uses crt;

var i,s:integer;

begin

clrscr;

s:=0; i:=1;

while s<2073 do

begin

s:=s+i;

inc(i);

end;

writeln(s);

readln;

end.