Задание:
Запишите на языке Паскаль программу, которая для произвольного натурального двузначного числа 1) сумму и произведение его цифр; 2) число, образованное перестановкой цифр исходного числа.
Решение:
Var n,sum,pr,a: integer; beginreadln (n); sum: =0pr: =1; while n<>0 dobegina: =n mod 10; sum: =sum+a; pr: =pr*a; n: =n div 10; end; writeln (sum,',pr); end.
Знаете другой ответ?