Главная

Контакты

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

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

while s <= 1318 do begin. write(n). var n, s, d: integer;. readln(d);. while s <= 2019 do begin. write(n). var n, s, d: integer;. readln(d);. while s <= 1800 do begin. write(n). var n, s, d: integer;. readln(d);. while s <= 2570 do begin. writ

n: = 0;

s: = 24;

while s < = 1318 do begin

s: = s + d;

n: = n + 15

end;

write(n)

end.

40)  ( О. В. Гасанова ) Сколько различных значений числа d можно ввести, чтобы после выполнения программы было напечатано 171?

var n, s, d: integer;

begin

readln(d);

n: = 27;

s: = 12;

while s < = 2019 do begin

s: = s + d;

n: = n + 16

end;

write(n)

end.

41)  ( О. В. Гасанова ) Сколько различных значений числа d можно ввести, чтобы после выполнения программы было напечатано 246?

var n, s, d: integer;

begin

readln(d);

n: = 8;

s: = 6;

while s < = 1800 do begin

s: = s + d;

n: = n + 7

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.

43)  ( О. В. Гасанова ) Сколько различных значений числа d можно ввести, чтобы после выполнения программы было напечатано 69?

var n, s, d: integer;

begin

readln(d);

n: = 14;

s: = 29;

while s < = 2000 do begin

s: = s + d;

n: = n + 5

end;

write(n)

end.

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

var n, s, d: integer;

begin

readln(d);

n: = 23;

s: = 18;

while s < = 1977 do begin

s: = s + d;

n: = n + 6

end;

write(n)

end.

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

var n, s, d: integer;

begin

readln(d);

n: = 16;

s: = 10;

while s < = 3120 do begin

s: = s + d;

n: = n + 8

end;

write(n)

end.

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

var s, n: integer;

begin

s: = 0;

n: = 0;

while s*s < = 10*s do begin

s: = s + 1;

n: = n + 2

end;

writeln(n)

end.

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

var s, n: integer;

begin

s: = 0;