Вопрос школьника по предмету Информатика
Запишите на языке паскаль программу которая для произвольного натурального трехзначного числа определяет:
а)Сумму и произведения его цифр
б)число, образовано перестановкой цифр исходного числа
Ответ учителя по предмету Информатика
Ответ:
var i: integer;
begin
randomize;
i := 10 + random (90);
writeln (‘число = ‘, i);
writeln;
writeln (‘сумма его цифр = ‘, i mod 10 + i div 10 );
writeln (‘произведение его цифр = ‘, (i mod 10) * (i div 10 ));
write (‘число, образованное перестановкой цифр исходного числа = ‘, (i mod 10) *10 + i div 10);
end.
Похожие вопросы от пользователей
1 ветер,притихший и успокоенный после бури слабо шевелил ветви берез
2 ветер ,притихший и успокоенный после бури ,слабо шевелил ветви берез
ПРОШУ НУЖНО ОЧЕНЬ СРОЧНО РЕШЕНИЕ ЭТОЙ ЗАДАЧИ ПИСАЛА ЕЁ ОЧЕНЬ ДОЛГО ПРОШУ!