Задание

Запиши ответ

Выясни, какое минимальное значение числа d следует ввести, чтобы после выполнения программы было напечатано 150.

var n, s, d: integer;

begin

readln(d);

n:=3; s:=38;

while s\le1200 do

begin

s:=s+d;

n:=n+7

end;

write(n)

end.

Ответ: .