1. Информатика
  2. Вывести все числа которые

Вывести все числа которые делятся на 11 и 17 до 1000 Паскаль

Ostap2010 Ostap2010    2   06.08.2021 22:15    2

Ответы
Диля222222222 Диля222222222  06.08.2021 22:20

var n: integer;

begin

 for n := 1 to 1000 do

   if (n mod 11 = 0) and (n mod 17 = 0) then

     writeln(n);

end.

Объяснение:


Вывести все числа которые делятся на 11 и 17 до 1000 Паскаль
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
olesyavod45 olesyavod45  05.10.2019 05:00
Створити програму яка містить 20 різних 2-х цифрових чисел, де буде визначено піднесення числа до куб. в третьому полі кубічний результат буде збільшено на 100 одиниць (lazarus)...
3105nikitos2006 3105nikitos2006  28.01.2021 17:27
Написать программу для вычисления y и z значения...
Nikitos220220 Nikitos220220  24.09.2019 20:40
100 дан двумерный массив определить среднее арифметическое элементов четвертого столбца решите через паскаль...
АкулинаДак АкулинаДак  24.09.2019 20:40
Нужно перевести числа 341,221 и 120 в двоичную, восьмеричную, шестнадцатеричную систему исчисления. объясните !...
vasiliybondaroxq3j4 vasiliybondaroxq3j4  18.09.2019 22:30
Найти количество цифр 7 в натуральном числе n....
bertain bertain  18.09.2019 20:40
1.органы чувств--приём (ввод) информации--компьютера....
begemot14 begemot14  18.09.2019 20:43
1.органы чувств--приём (ввод) информации--компьютера....
aksiniaplotniko aksiniaplotniko  13.03.2019 20:38
Для групповых операций с файлами используются маски имен файлов. маска представляет собой последовательность букв, цифр и прочих допустимых в именах файлов символов. также в...
marsidd marsidd  13.03.2019 20:39
Найдите ошибку. вместо большего числа, выводит 0. program bolsheyechislo; var a, b, c, d, e, max, max1, max2 : integer; function maxchislo: integer; begin if max1 max2 then max...
Лена17617 Лена17617  09.07.2019 21:20
Воду какой массы можно нагреть от 10 ? с до 90 ? с, сообщив ей количество теплоты 420 кдж?...

Популярные вопросы