Главная

Контакты

Случайная статья

• Автоматизация
• Антропология
• Археология
• Архитектура
• Биология
• Ботаника
• Бухгалтерия
• Военная наука
• Генетика
• География
• Геология
• Демография
• Деревообработка
• Журналистика
• Зоология
• Изобретательство
• Информатика
• Искусство
• История
• Кинематография
• Компьютеризация
• Косметика
• Кулинария
• Культура
• Лексикология
• Лингвистика
• Литература
• Логика
• Маркетинг
• Математика
• Материаловедение
• Медицина
• Менеджмент
• Металлургия
• Метрология
• Механика
• Музыка
• Науковедение
• Образование
• Охрана Труда
• Педагогика
• Полиграфия
• Политология
• Право
• Предпринимательство
• Приборостроение
• Программирование
• Производство
• Промышленность
• Психология
• Радиосвязь
• Религия
• Риторика
• Социология
• Спорт
• Стандартизация
• Статистика
• Строительство
• Технологии
• Торговля
• Транспорт
• Фармакология
• Физика
• Физиология
• Философия
• Финансы
• Химия
• Хозяйство
• Черчение
• Экология
• Экономика
• Электроника
• Электротехника
• Энергетика

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

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.

33) Запишите число, которое будет напечатано в результате выполнения следующей программы:

var n, s: integer;

begin

n: = 1;

s: = 0;

while n < = 650 do begin

s: = s + 20;

n: = n * 5

end;

write(s)

end.

34) Запишите число, которое будет напечатано в результате выполнения следующей программы:

var n, s: integer;

begin

n: = 1;

s: = 0;

while n < = 300 do begin

s: = s + 30;

n: = n * 5

end;

write(s)

end.

35) Запишите число, которое будет напечатано в результате выполнения следующей программы:

var s, n: integer;

begin

s: = 0;

n: = 0;

while s < 111 do begin

s: = s + 8;

n: = n + 2

end;

writeln(n)

end.

36) Запишите число, которое будет напечатано в результате выполнения следующей программы:

var s, n: integer;

begin

s: = 0;

n: = 0;

while 2*s*s < 123 do begin

s: = s + 1;

n: = n + 2

end;

writeln(n)

end.

37) ( О. В. Гасанова ) Запишите через запятую наименьшее и наибольшее значение числа d, которое нужно ввести, чтобы после выполнения программы было напечатано 153?

var n, s, d: integer;

begin

readln(d);

n: = 33;

s: = 4;

while s < = 1725 do begin

s: = s + d;

n: = n + 8

end;

write(n)

end.

38)  ( О. В. Гасанова ) Запишите через запятую наименьшее и наибольшее значение числа d, которое нужно ввести, чтобы после выполнения программы было напечатано 75?

var n, s, d: integer;

begin

readln(d);

n: = 24;

s: = 12;

while s < = 3004 do begin

s: = s + d;

n: = n + 3

end;

write(n)

end.

39)  ( О. В. Гасанова ) Запишите через запятую наименьшее и наибольшее значение числа d, которое нужно ввести, чтобы после выполнения программы было напечатано 195?

var n, s, d: integer;

begin

readln(d);