Tính tổng các số lẻ từ 1 đến 20 nhưng đến khi nào tổng vượt quá 15 thì dừng lại.
2 câu trả lời
uses crt;
var i,sum:longint;
begin
clrscr;
for i:=1 to 20 do
begin
if(i and 1 = 1) then inc(sum, i);
if(sum > 15) then break;
end;
writeln(sum);
readln;
end.
uses crt;
var i,t:longint;
begin
clrscr;
t:=0;
for i := 1 to 20 do
begin
if (i mod 2 = 1) then
t := t + i;
if t > 15 then break;
end;
writeln(t);
readln;
end.
