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

Вывести все числа в диапазоне от 15 до 125,являющиеся четными и кратными 3

VanyaKEKEP VanyaKEKEP    2   24.06.2019 13:00    0

Ответы
yanakorzh2003 yanakorzh2003  19.07.2020 23:59
Var  i, k: integer;
begin
  for i := 15 to 125 do
    if (i mod 2 = 0) and (i mod 3 = 0) then write(i, '; ');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Мариночка010404 Мариночка010404  29.09.2019 21:00
Что выполняет компьютер сразу после включения power...
aaa140 aaa140  29.09.2019 21:00
Какое расширение у исполняемых файлов?...
DanilGorev DanilGorev  29.09.2019 21:00
Какое наибольшее количество символов имеет расширение имени файла?...
Ксеня228 Ксеня228  29.09.2019 21:00
Какое наибольшее количество символов имеет имя файла или каталога в windows?...
kristinka200000005 kristinka200000005  29.09.2019 21:00
Как называются данные или программа на магнитном диске?...
УмнейшаяДокторНаук УмнейшаяДокторНаук  15.09.2019 15:34
Для чего в этих профессиях нужен компьютер: архитектор врач учитель бизнесмен бухгалтер композитор секретарь писатель художник модельер...
отличница446 отличница446  15.09.2019 17:30
На каком языке программирования написан дневник ру...
Ivanøva34 Ivanøva34  15.09.2019 17:30
5. в ячейки а6 и а7 введены числа 10 и 20. какие числа появятся в ячейках а5, а4 и а3, если протянуть маркер атозаполнения вверх? введите числа через запятую, без пробелов, начиная...
KseniaSob KseniaSob  15.09.2019 15:41
Начертить блок-схему алгоритма. ввести последовательность натуральных чисел {aj}j=. если в последовательности есть хотя бы одно число, содержащее цифру 7, упорядочить последовательность...
KoNetik2020 KoNetik2020  15.09.2019 15:42
Найти информационный объем моно-аудио файла звучания 5 сек при качестве звука 16 бит, 24 кило герц...

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