Программа для произвольного двузначного числа, которая вычисляет сумму чисел этого числа и образует новое число, перестановкой чисел данного числа

Question

Информатика

Толяша

13 марта, 13:56

Программа для произвольного двузначного числа, которая вычисляет сумму чисел этого числа и образует новое число, перестановкой чисел данного числа

+5

Ответы (1)

Знаешь ответ?

Ярополк · Answer 1

Var a, b, c: integer;

Begin

write ('Ведите двузначное число: ');

readln (a);

b:=a div 10;

c:=a mod 10;

writeln ('Сумма цифр равна: ', c+b);

writeln ('Перевернутое число: ', c, b)

End.