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

Question

Информатика

Дуняра

16 апреля, 22:19

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

+4

Ответы (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.