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.
count = 0
for i in 0..9
for j in 0..9
for k in 0..9
num = i*10**5+j*10**4+k*10**3+k*10**2+j*10**1+i*10**0
count+=1 if num.between?(189980,205505)
end
end
end
p count
ответ 17