Дано трехзначное число получить все возможные двухзначные числа. Паскаль

Question

Информатика

Радим

27 марта, 03:44

Дано трехзначное число получить все возможные двухзначные числа. Паскаль

+3

Ответы (2)

Знаете ответ на вопрос?

Таисьюшка · Answer 1

Var

v: byte;

n: integer; a, b, c, i: byte;

begin

readln (n) ;

a : = n div 100;

b : = n div 10 mod 10;

c : = n mod 10;

v : = [10 * a + b, 10 * b + a, 10 * a + c, 10 * c + a, 10 * b + c, 10 * c + b];

for i : = 10 to 99 do if i in v then

writeln (i) ;

end.

Рина · Answer 2

Всего можно составить шесть двузначных чисел: 12,13,21,23,31,32. их сумма равна 152