Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
0 / 0 / 0
Регистрация: 12.05.2021
Сообщений: 80
1

По конвейеру движутся пронумерованные от 10 до 99 пакеты с изделиями. Для проверки качества извлекается каждый 9-й и те,

13.05.2021, 15:05. Показов 1869. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
По конвейеру движутся пронумерованные от 10 до 99 пакеты с изделиями. Для проверки качества извлекается каждый 9-й и те, что содержат цифру 5. Какой двузначный номер будет иметь пакет, извлечённый N-ым по-порядку?

Выполните в Паскале
0
Лучшие ответы (1)
1178 / 429 / 194
Регистрация: 23.03.2020
Сообщений: 1,016
Записей в блоге: 1
17.05.2021, 02:27 2
Лучший ответ Сообщение было отмечено Ангелина1 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
var c, n, i: integer;
begin 
  Write('n = ');
  Readln(n);
  for i := 10 to 99 do
    if (i mod 9 = 0) or (i mod 10 = 5) or (i div 10 = 5) then 
    begin
      inc(c);
      if c = n then Writeln(i);
    end;
end.
0
17.05.2021, 02:27
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru