Запишите на языке Паскаль программу, которая для произвольного двузначного числа определяет: а)сумму и произведение его цифр; б)число, образованное перестановкой цифр исходного числа.
Answers & Comments
Илья22821
Var n:integer; Begin readln(n); if (n>9) and (n<100) then begin writeln('Сумма = ',((n mod 10)+(n div 10) ),' Произведение = ',((n mod 10)*(n div 10) )); writeln('Если поменять местами цифры, то получится ',n mod 10,n div 10); end else writeln('Error!'); readln End.
Answers & Comments
Begin
readln(n);
if (n>9) and (n<100) then
begin
writeln('Сумма = ',((n mod 10)+(n div 10) ),' Произведение = ',((n mod 10)*(n div 10) )); writeln('Если поменять местами цифры, то получится ',n mod 10,n div 10);
end
else
writeln('Error!');
readln
End.