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

Question

Информатика

Мишара

17 июня, 13:42

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

+2

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