Вывести все натуральные числа и записать числа которые делятся на 17 без остатка - Turbo Pascal

Узнай цену своей работы

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

Задание, вывести все натуральные числа и записать числа которые делятся на 17 без остатка, как сделать?

Решение задачи: «Вывести все натуральные числа и записать числа которые делятся на 17 без остатка»

textual
Листинг программы
  1. const n =1000000;
  2. var i:longint;
  3. BEGIN
  4. For i:=1 to n do
  5. IF i mod 17 = 0 THEN Writeln(i);
  6. END.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

11   голосов , оценка 3.909 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы