Вывести все натуральные числа и записать числа которые делятся на 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.

ИИ для рефератов и докладов

  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

Оцени полезность:

11   голосов , оценка 3.909 из 5
Похожие ответы