write(n)

End.

28) При каком наибольшем введенном числе d после выполнения программы будет напечатано 89?

var n, s, d: integer;

Begin

readln(d);

n:= 5;

s:= 83;

while s <= 1200 do begin

s:= s + d;

n:= n + 6

end;

Write(n)

End.

29) При каком наименьшем введенном числе d после выполнения программы будет напечатано 63?

var n, s, d: integer;

Begin

readln(d);

n:= 3;

s:= 57;

while s <= 1200 do begin

s:= s + d;

n:= n + 4

end;

Write(n)

End.

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

31) При каком наименьшем введенном числе d после выполнения программы будет напечатано 121?

var n, s, d: integer;

Begin

readln(d);

n:= 1;

s:= 46;

while s <= 2700 do begin

s:= s + d;

n:= n + 4

end;

Write(n)

End.

[1] Источники заданий:

1. Демо-варианты ЕГЭ 2012-2013 гг.

2. Тренировочные и диагностические работы МИОО.