begin. readln(d);. while s <= 1200 do begin. write(n). var n, s, d: integer;. readln(d);. while s <= 1200 do begin. write(n). var n, s, d: integer;. readln(d);. while s <= 2700 do begin. write(n). var n, s, d: integer;. readln(d);. while s <=

⇐ ПредыдущаяСтр 2 из 2

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.

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

var n, s, d: integer;

begin

readln(d);

n := 8;

s := 78;

while s <= 1200 do begin

s := s + d;

n := n + 2

end;

write(n)

end.

№42 Сколько различных значений числа d можно ввести, чтобы после выполнения программы было напечатано 196?

var n, s, d: integer;

begin

readln(d);

n := 7;

s := 35;

while s <= 2570 do begin

s := s + d;

n := n + 9

end;

write(n)

end.

⇐ Предыдущая 12