При каком наибольшем введенном числе d после выполнения программы будет напечатано 150? var n, s, d: integer;

Begin

readln(d);

n := 3;

s := 38;

while s <= 1200 do begin

s := s + d;

n := n + 7

end;

Write(n)

End.

d=57

Объяснение:

немного изменим программу, пусть сама считает

var

n, s, d: integer;

k: integer;

Begin

 n:=0;

 d:=1;

 while n <> 150 do begin

   n := 3;

   s := 38;

   while s <= 1200 do begin

     s := s + d;

     n := n + 7

   end;

   inc(d);

 end;

 writeln('d=', d, ' n=', n);

End.