Нонн
4 год назад
Имеется массив А(1.h). Подсчитать количество элементов массива кратных некоторому числу P
ОТВЕТЫ
Stepan
Oct 24, 2020
begin
var a:=ArrRandom(ReadInteger('h='),-99,99); a.Println;
var p:=ReadInteger('P=');
Writeln(a.Where(t->t mod p=0).Count,' элементов,кратных ',p)
end.
h= 50
55 28 15 -95 70 -68 -3 -82 -64 -62 -3 -64 -85 15 55 73 77 -94 54 12 -48 -62 28 67 80 96 28 -45 37 76 -40 24 -73 -30 -16 -97 -38 99 30 17 -1 -25 5 -42 85 -62 1 -97 -87 -30
P= 9
3 элементов,кратных 9
585
Смежные вопросы: