Question

var x, p, a: integer;
begin
x :=0; p :=0;
readln(a);
while p < 140 do begin
p := p + a;
x := x + 1
end
writeln (x);
end

----------------------
x=24
Найти a ( наим )

Answer 1

x=24 - количество проходов по циклу
(р+а) - к   (р ) а суммируется 23 раза
140:23=6 (с остатком)   ---->  a=6 
 ответ 6