ТутРешу.Ру

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

Задание:

Запишите на языке Паскаль программу, которая для произвольного натурального двузначного числа 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.




Знаете другой ответ?

Отправить свой ответ