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,s:longint;
begin
clrscr;
i:=0; s:=0;
while (i<=20)and(s<=15) do
begin i:=i+1; s:=s+i; end;
writeln(s);
readln
end.
program bai_giai;
uses crt;
var i,s:longint;
begin
clrscr;
s:=0;
i:=1;
repeat
if(i mod 2=1)then
begin
s:=s+i;
write(i);
if(s<=15)then write('+')else write('=',s);
end;
inc(i);
until s>15;
readln;
end.
