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

184

314

Посмотреть ответы 3

Ответы на вопрос:

bellason

Информатика

4,4(45 оценок)

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.

Angelina13112003

Информатика

4,7(70 оценок)

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.