Question

Определить количество членов в последовательности натуральных чисел кратных числу M и заключенных в интервале от L до N
Нужно сделать в Pascal

Answer 1

##

var k := ReadInteger('Длина последовательности:');

var (M, L , N) := ReadInteger3('Введите M, L и N:');

Writeln('Вводите данные');

k := ReadSeqInteger(k).Where(t -> (t mod M = 0) and (t in L..N)).Count;

Print('Количество значений, удовлетворяющих условию:', k)