Запишите на языке Паскаль программу, которая для произвольного двузначного числа определяет: а)сумму и произведение его цифр; б)число, образованное перестановкой цифр исходного числа.
Answers & Comments
JustPeopleVAR n, n2, sum, pr: Integer; BEGIN Read(n); sum := (n div 10)+(n mod 10); pr := (n div 10)*(n mod 10); n2 := (n mod 10)*10 + (n div 10); Writeln('Сумма цифр = ', sum); Writeln('Прозведение цифр = ', pr); Writeln('Полученое число = ', n2); END.
Answers & Comments
n, n2, sum, pr: Integer;
BEGIN
Read(n);
sum := (n div 10)+(n mod 10);
pr := (n div 10)*(n mod 10);
n2 := (n mod 10)*10 + (n div 10);
Writeln('Сумма цифр = ', sum);
Writeln('Прозведение цифр = ', pr);
Writeln('Полученое число = ', n2);
END.