1. Информатика
  2. Паскаль. составить программу

Паскаль. составить программу вывода на экран двузначных чисел, которые являются кратными числу 7 и делителями числа 616.

VickaBro VickaBro    1   05.12.2019 21:37    0

Ответы
Mehriban2007 Mehriban2007  10.10.2020 18:48

var i: integer;

begin

for i:=10 to 99 do

if (i mod 7 = 0) and (616 mod i = 0) then writeln (i)

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Artem517Art Artem517Art  08.11.2019 21:48
Текстовое поле (input) для написания и кнопки (button) html создат� список ul с id tasklist внутри создать элементы (il) с текстом при нажатие на кнопку у каждой кнопки...
1nVictUS 1nVictUS  08.11.2019 21:36
Метеорологічна станція веде за вологістю повітря.результатом одного ціле число від 0% до 100 %, яке записуєтьсяза мінімальної кількості біт. станція зробила визначте інформаційний...
beksedaniar beksedaniar  10.02.2021 20:56
решите задачки по информатике на программирование! 1) скоростьпервого авто b1, второго авто b2, расстояние между ними S. Какое расстояние будет через t часов, если авто...
rafael2003ggwp rafael2003ggwp  10.02.2021 20:56
ПРОГРАММИРОВАНИЕ PascalABC Вводится значение а,b,св уравнение y=ax^2+bx+cD=b^2-4acВывести дискрименант (числовое значение)​...
danilaman danilaman  17.12.2020 13:16
Составьте блок-схему алгоритма для вычисления суммы чисел от 0до 10с шагом0,5...
игорь780 игорь780  17.12.2020 13:16
рассчитайте объем стерео аудио файла длительностью 5 сёк при 16 битнои кодировании и частоте 44.1 кГц​...
Флэшик Флэшик  17.12.2020 13:15
Укажите наименьшее целое значение А, при котором выражение (y + 5x   A) ∨ (3x + 2y  81)истинно для любых целых неотрицательных значений x и y. (136)​...
llvoronall llvoronall  17.12.2020 13:15
Моделирование лестницы 1 Ластик2 Вкладка-нарисовать3 Вдавить-вытянуть4 Ведение5 Фигуры-круг6 Нарисовать-прямоугольник7 Линия8 Окно-материалы...
05012008попович 05012008попович  07.06.2019 18:40
Паскаль: дан массив а состоящий из 10 случайных чисел, сформировать новый массив в , значения которого будут в 5 раз меньше значения массива а...
Биіккесамға Биіккесамға  07.06.2019 17:43
Решить игру (excel) с применением всех критериев, после чего дать рекомендации для принятия оптимального решения. : в транспортном цехе ежедневно выходит из строя до 8...

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