• Дано целое двузначное число х. Составьте программу вычисления суммы и произведения цифр числа х. Значение х ввести с клавиатуры.

Ответы 3

  • Дeбил, с какой стати ты моё решение отметил как неверное?
  • var a,b:byte;    num:integer;    begin  write('Введите двухзначное целое число ');  readln(num);    //если число отрицательное - убираем знак  num := abs(num);    //десятки числа  a:=num div 10;  //единицы числа  b:=num mod 10;  writeln('Сумма цифр ', a , ' и ', b, ' = ', a+b);  writeln('Произведение цифр ', a , ' и ', b, ' = ', a*b);end.
    answer img
    • Автор:

      jaxson
    • 6 лет назад
    • 0
  • П0 1 0 / {x} 1 0 * П1 ИП0 1 0 / [x] П1 ИП0 + С/П ИП0 ИП1 * С/П
    answer img
    • Автор:

      shepherd
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years