1. Информатика
  2. Найдите 20 первых натуральных

Найдите 20 первых натуральных чисел,больше 500 и кратные 13 или 17. паскаль

0HIMiK0 0HIMiK0    3   30.09.2019 05:20    2

Ответы
kckekdkalexter kckekdkalexter  09.10.2020 04:42
PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018Внимание! Если программа не работает, обновите версию!

begin

 var (k, n) := (500, 0);

 repeat

   if (k mod 13 = 0) or (k mod 17 = 0) then

   begin

     k.Print;

     n += 1

   end;

   k += 1

 until n = 20

end.


Найдите 20 первых натуральных чисел,больше 500 и кратные 13 или 17. паскаль
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
элллллляяяяя555 элллллляяяяя555  12.07.2019 03:00
Даны координаты точки (x,y). определить, пройдет ли через нее график функции y = 5x. решите ,желательно с фото графика....
qwertyartem04 qwertyartem04  18.05.2019 03:20
Составьте таблицу истинности для выражения a•b•(c v ē v d)•ƃ...
cheacher cheacher  18.05.2019 03:20
Вчем разница между статическими и динамическими информационными моделями?...
Александра030307 Александра030307  18.05.2019 03:10
Решить в паскале дан двумерный массив. найти сумму и количество положительных элементов, лежащих выше главной диагонали....
kamilamila2005 kamilamila2005  18.05.2019 03:10
Всем .мой вопрос заключается в на массив. на промежутке от a и b подсчитайте количество четных чисел. заранее !...
lisakiss1 lisakiss1  18.05.2019 03:10
Что получится в результате работы следующего алгоритма, если 1) a=2, b=5, 2) a=0, b=-2 алг пример цел a,b,c нач ввод a,b если a 0 то если b 0 то c: =a+b иначе c: =10 кв иначе...
dianaterpil30031 dianaterpil30031  18.05.2019 03:10
1. графический исполнитель стоит в левом верхнем углу поля. направление - произвольное. что будет изображено на экране после выполнения графическим исполнителем следующего алгоритма...
teacupbunnies1 teacupbunnies1  18.05.2019 03:10
Словарный запас некоторого языка составляет 625 слов, каждое из которых состоит точно из 4 букв. сколько букв в алфавите языка?...
оксаночка1412 оксаночка1412  18.05.2019 03:00
Определите, имеется ли среди заданных целых чисел a, b, c хотя бы одно чётное....
арсен187 арсен187  18.05.2019 03:00
Вычислите периметр и площадь прямоугольного треугольника по длинам двух его катетов...

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