Program n1;
var a: array[1..27] of integer;
i: integer;
begin
randomize;
for i:=1 to 27 do a[i]:=random(76)+25;
end.
Фото нет.
Вот моё старое решение с решетом Эратосфена.
https://pastebin.com/KqUn47Hn
В а - количество цифр в числе
в b - произведение цифр
то есть число x - трехзначное и произведение его цифр=0,
990 - максимальное из трёхзначных, произведение цифр которых=0
ответ 990
var i, a:longint;
begin
read(a);
for i:=1 to 1000 do
if (100 <= a * i) and (a * i <= 999) then
write(a * i, ' ')
end.
{$N+} (*Enable 287 soprocessor*)
var i:longint;
a:extended;
begin
read(a);
for i:=1 to 20 do write(i, ' ', a * i, ' Rub.', #13, #10);
end.