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

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

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

Question

Информатика

Илюша

26 сентября, 01:29

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

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

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

+5

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