посчитайте информатика 10 класс

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. Можно посчитать на листочке, либо переписать в код, как сделал это я.