Question

Помогите информатика 10 класс

Answer 1

Ответ:

80.

Объяснение:

Pascal:

var x,y:integer;

begin

   x := 0;

   y := 140;

   while (y+x) < 200 do

       begin

           x := x + 20;

           y := y -5;

       end;

       

   writeln(x);  

end.

При каждой итерации, будет прибавляться к X - 20, а Y будет уменьшаться на 5. Условие - (x+y) < 200. Можно посчитать на листочке, либо переписать в код, как сделал это я.