Question

Определите, что будет напечатано в
результате работы следующего фрагмента программы:


var
k, s: integer;


begin

  s:=0;

 
 k:=0;

 
 while s < 80 do begin

    s:=s+2*k;


    k:=k+4;

 
end;


  write(s);


end. 

Answer 1

Ответ на Ваше задание: 80.