Var n, i: integer;
begin
read(n);
for i:=10 to 99 do
if (i mod n=0) and (i mod 10<>n) and (i div 10<>n) then write(i, ' ');
end.
<span>1920x1080 расшерение екрана </span>
Возможно, не уверен, цепь питания
Переведи все в десятичную решил и переведи обратно
Var a:array [1..10] of integer;
i,k:integer;
begin
k:=0;
for i:=1 to 10 do
begin
write (i,'-oe chislo: ');
readln (a[i]);
if (a[i]>-15) and (a[i]<30) then inc(k);
end;
writeln ('Kol-vo: ',k);
end.