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.
// Внимание! Если программа не работает, обновите версию!
begin
for var a:=1 to 9 do
for var b:=1 to 9 do
for var c:=1 to 9 do
if 100*a+10*b+c=5*a*b*c then Write(a,b,c,' ');
end.
Результат
175