При каком наибольшем введенном числе 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.