Задать вопрос Регистрация
Помочь другим

  • Помогите решить!!!

    1)Дано натуральное трехзначное число N. Определить сумму и произведение его цифр.

    2)Дано натуральное трехзначное число N. Найдите число, образованное перестановкой цифр исходного числа в обратном порядке.

    3)Дано натуральное четырехзначное число N. Определить сумму и произведение его цифр.

Ответы 1

  • 1)

     

    var a, b, c, d: integer;begin readln(a); b := a div 100; { сотни } c := (a mod 100) div 10; { десятки } d := a mod 10; { единицы } writeln('Сумма цифр равна: ', b + c + d);end.

     

    2)

     

    var a, b, c, d, p: integer;begin readln(a); b := a div 100; { сотни } c := (a mod 100) div 10; { десятки } d := a mod 10; { единицы } p := d * 100 + c * 10 + b; writeln('Наоборот: ', p);end.

     

    3)

     

    var a, b, c, d, e: integer;begin readln(a); e := a div 1000; { тысячи } b := (a div 100) mod 10; { сотни } c := (a mod 100) div 10; { десятки } d := a mod 10; { единицы } writeln('Сумма: ', e + b + c + d); writeln('Произведение: ', e * b * c * d);end.

    • Автор:

      bauer
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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