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

Question

Запишите на языке Паскаль программу, которая для произвольного натурального двузначного числа 1) сумму и произведение его цифр; 2) число, образованное перестановкой цифр исходного числа.

Answer 1

41

kofka

09 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: