Question

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

Answer 1

Ответ:

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.