var
i: byte;
begin
for i:=10 to 99 do
if (i mod 10)<>(i div 10) then write(' ',i);
readln;
end.
Результат работы программы
Составьте алгоритм и программу нахождения двузначных чисел, в записи которых нет одинаковых цифр — Pascal(Паскаль)
var
i: byte;
begin
for i:=10 to 99 do
if (i mod 10)<>(i div 10) then write(' ',i);
readln;
end.