Question

. Определите, что будет напечатано в результате работы следующего фрагмента программы:
Var n, s: integer;
begin
s:=1;
n:=0;
while s < 80 do begin
s:=s+2*n;
n:=n+3;
end;
write(s);
end


ПОЖАЛУЙСТА ПОМОГИТЕ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Answer 1

Ответ:

Получится 660

while n <= 20 do begin

s := s + 33;

n := n + 1

Это цикл который будет повторяться 20 раз

Объяснение: