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. Тренировочные и диагностические работы МИОО.