Вывести все натуральные числа и записать числа которые делятся на 17 без остатка - Turbo Pascal
Формулировка задачи:
Задание, вывести все натуральные числа и записать числа которые делятся на 17 без остатка, как сделать?
Решение задачи: «Вывести все натуральные числа и записать числа которые делятся на 17 без остатка»
textual
Листинг программы
const n =1000000; var i:longint; BEGIN For i:=1 to n do IF i mod 17 = 0 THEN Writeln(i); END.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д