Var x, p, a: integer; begin x :=0; p :=0; readln(a); while p < 140 do begin p := p + a; x...

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