Question

Запишите на языке Паскаль программу, которая для произвольного натурального двузначного числа определяет сумму и произведение его цифр.

Answer 1

Ответ:

var

 n,d,e:integer;

begin

 Write('Введите двухзначное число: '); Read(n);

 d:=n div 10; e:=n mod 10;

 Writeln('Сумма цифр равна ',d+e,', произведение ',d*e);

 Writeln('Число, полученное перестановкой цифр ',10*e+d)

end.