Gasasloz
7 год назад
Напишите программу, которая вводит массив из N целых чисел и выводит на экран элементы, кратные числу K. Протестировать программу на следующих исходных данных:
а) k = 3 Массив: 2 6 -9 4 5 12 -15
б) k = 4 Массив: 9 0 8 124 -16 11 19
ОТВЕТЫ
Daok
Jul 20, 2019
Begin
var ar := readarrinteger(readinteger(Введите n:));
var k := readinteger(Введите k:);
ar.Where(x -gt; x mod k = 0).print;
end.
var ar := readarrinteger(readinteger(Введите n:));
var k := readinteger(Введите k:);
ar.Where(x -gt; x mod k = 0).print;
end.
237
