Дано двузначное число. Из цифр этого числа вывести все двузначные числа, которые можно...

Question

Дано двузначное число. Из цифр этого числа вывести все двузначные числа, которые можно составить из данного числа

Comments

например ввод: 13 вывод: 11,13,31,33или ввод: 13 вывод: 10..19, 30..39 (но вместо точек цифры) ?

---

Для того, чтобы решить, я хочу понять, что именно нужно сделать. Вопрос мой в том, что требуется вывести.

---

Числа только из цифр введенного числа или все двузначные. содержащие в себе хотя бы одну цифру из ввденного

---

введенного*

Answer 1

uses crt; // подключение модуля CRT, чтобы результат был в новом окне
var i,a,b: integer; // описание переменных
begin
     readln(i); // ввод двузначного числа
     a:=i div 10; // первая цифра числа
     b:=i mod 10; // вторая цифра числа
     write(a,a,' ',a,b,' ',b,a,' ',b,b); // вывод искомых чисел на экран
end.

Answer 2

Program gt;
var n,i,a,b:integer;
begin
read(n);
a:=n div 10;
b:=n mod 10;
for i:=0 to 9 dowriteln(a,i);
if(a<>b)then begin
for i:=0 to 9 do
writeln(b,i);
end;
end.