Найти и напечатать те из чисел, которые при делении на 7 дают остаток 1, 2 или 5 - Turbo Pascal

Формулировка задачи:

Даны натуральные числа от 35 до 87. Найти и напечатать те из них, которые при делении на 7 дают остаток 1, 2 или 5.


textual

Код к задаче: «Найти и напечатать те из чисел, которые при делении на 7 дают остаток 1, 2 или 5 - Turbo Pascal»

for i:=35 to 87 do
if i mod 7 in [1,2,5] then write(i,' ');
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 3.917 из 5

Источник
Похожие ответы