Question

Определите, что будет напечатано в результате работы следующего фрагмента программы:
var a:integer;
begin
a:=0;
while a<5 do begin
write('+');
a:=a+1;
end;
end.

Answer 1

Ответ:

var k,s:integer;

begin s:=0;

k:=1;

while s < 66 do begin k:=k+3;

s:=s+k;

end;

write (k);

end;

Объяснение:

Лови ответ