Запишите на языке паскаль программу которая для произвольного натурального трехзначного числа определяет:а)Сумму и произведения его цифрб)число, образовано перестановкой цифр исходного числа
184
ОТВЕТЫ
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.
41
Отв. дан
Варвара
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Математика
Cemeena
Переведите число 120 в шестнадцатеричную систему счисления ...
2018-09-25 00:00:00
Siradred
Кто может расшифровать сообщение, зашифрованное открытым ключом? PGP ДИСК ...
2018-09-25 00:00:00
Molhala
Пожалуйста посчитайте пожалуйста информатика 768 div 100 mod 10=? ...
2018-09-25 00:00:00
Ianlas
Катер проходит за 4 часа по течению реки такое ...
2018-09-25 00:00:00