Есть ответ 👍

Найти произведение всех цифр заданного четырехзначного числа. (программа Паскаль)

214
495
Посмотреть ответы 2

Ответы на вопрос:


program DigitsProduct;
uses Crt;
var Number, {заданное число}
  i, j, k, l, {цифры числа}
    P: Integer; {произведение цифр}
begin ClrScr;
  Write('Введите четырехзначное число : '); ReadLn(Number);
  Write('Цифры числа ', Number, ' : ');
  Number := Abs(Number);
  i := Number div 1000; Write(i: 3); {первая цифра}
  j := Number div 100 mod 10; Write(j: 3); {вторая цифра}
  k := Number div 10 mod 10; Write(k: 3); {третья цифра}
  l := Number mod 10; WriteLn(l: 3); {четвертая цифра}
  P := i * j * k * l;
  WriteLn('О т в е т : произведение цифр равно ', P);
  ReadLn
end.

1. 900: 2 = 450 л на крышу дома 2 900: 5 = 180 л на крышу сарая 3 450 + 180 = 630 л потратили всего 4 900-630= 270 л осталось ответ: 270 листов

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Другие предметы

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS