Запишите на языке Паскаль программу, которая для произвольного двузначного числа определяет: а)сумму и произведение его цифр; б)число, образованное перестановкой цифр исходного числа.
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.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
