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

Question

Информатика

Дуняра

24 октября, 11:13

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

+3

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