Найти и напечатать те из чисел, которые при делении на 7 дают остаток 1, 2 или 5 - Turbo Pascal
Формулировка задачи:
Даны натуральные числа от 35 до 87. Найти и напечатать те из них, которые при делении на 7 дают остаток 1, 2 или 5.
Решение задачи: «Найти и напечатать те из чисел, которые при делении на 7 дают остаток 1, 2 или 5»
textual
Листинг программы
for i:=35 to 87 do if i mod 7 in [1,2,5] then write(i,' ');
Объяснение кода листинга программы
В данном коде используется цикл for, который проходит по числам от 35 до 87 (включительно). Внутри цикла проверяется условие: если число i делится на 7 без остатка и находится в диапазоне от 1 до 5, то это число выводится на экран через функцию write. Таким образом, в результате выполнения данного кода будут выведены все числа от 35 до 87, которые делятся на 7 и имеют остаток 1, 2 или 5 при делении на это число.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д