Объяснение:
const
a = 244143;// с какого числа
b = 367821;// по какое число
const_count_div = 5;// количество делителей
label
1;
var
i, k, t:longint;
ar_div:array[1..500] of longint;
count_div:integer;
begin
for i:=a to b do begin // перебираем все числа из заданного промежутка
count_div:=0;
for k:= 1 to i do // для каждого числа перебираем делители
if (i mod k) = 0 then begin
count_div:=count_div + 1;
if (count_div > const_count_div) then goto 1; // если количество делителей больше заданного количества, то на следующий шаг
ar_div[count_div]:=k;// заносим в массив делителей найденный делитель
end;
//writeln;
if (count_div = const_count_div) then begin
//writeln(i, ' ', count_div);
write(i, ': ');
for t:=1 to count_div do
write(ar_div[t], ' ');
writeln;
end;
1:
end;
writeln('End');
readln;
end.
Var
size: integer;
counter: integer;
mas: array of integer;
Begin
Write('Введите количество чисел в последовательности: ');
Readln(size);
if (size > 0) then
begin
Writeln();
SetLength(mas, size);
for var i := 0 to size - 1 do
begin
Write('Введите ', i + 1, ' число: ');
Readln(mas[i]);
if ((mas[i] mod 3 = 0) and (mas[i] mod 10 = 2)) then
counter := counter + 1;
end;
Writeln();
Writeln('ответ: ', counter);
end
else
Writeln('Количество чисел должно быть больше нуля!');
End.
