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

1) сумму и произведение его цифр;

2) число, образованное перестановкой цифр исходного числа.

Question

Информатика

Арсеныч

17 октября, 13:12

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

1) сумму и произведение его цифр;

2) число, образованное перестановкой цифр исходного числа.

+4

Ответы (1)

Знаете ответ?

Хариесса · Answer 1

Var n, sum, pr, a:integer;

begin

readln (n) ;

sum:=0

pr:=1;

while n0 do

begin

a:=n mod 10;

sum:=sum+a;

pr:=pr*a;

n:=n div 10;

end;

writeln (sum,' ', pr) ;

end.