Запишите на языке Паскаль программу, которая для произвольного натурального числа определяет:
а) сумму и произведение его цифр
б)число, образованное перестановкой цифр исходного числа
Пожалуйста объясните всё.
а) сумму и произведение его цифр
б)число, образованное перестановкой цифр исходного числа
Пожалуйста объясните всё.
Answers & Comments
Ответ:а)
var a,sum,p:integer;
begin
writeln(‘Введите число a’);
read(a);
sum:=a div 10 + a mod 10;
p:=(a div 10) * (a mod 10);
writeln(‘Сумма цифр числа =’,sum);
writeln(‘Произведение цифр числа =’,p);
end.
б)
var a:integer;
begin
writeln(‘Введите число a’);
read(a);
a:=(a mod 10)*10+a div 10;
writeln(a);
end.
Объяснение: