Есть ответ 👍

Расширение программы скажите​

170
211
Посмотреть ответы 2

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

MonstorXXXX
4,8(100 оценок)

xlsx

Объяснение:

2001kirik
4,7(39 оценок)

Объяснение:

program num32;var

 nums, i, min, max, a, i2, i3, sum: integer;begin

 min := 7;

 max := 0;

 sum := 0;

 

 readln(nums);

 

 

 while nums <> 0 do

 begin

  

   if (((nums mod 10) > max)) then begin

     max := nums mod 10;

   end;

  

  

  

   if (((nums mod 10) < min)) then begin

     min := nums mod 10;

    

    

   end;

   nums := nums div 10;

  

 end;

 

 

 

 if (min > max) then begin

  

   for i2 := max to min do

     sum := sum + i2; 

 end;

 

 if (max > min) then begin

   for i2 := min to max do

     sum := sum + i2;

 end;

 

 writeln(sum);

 

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

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

Популярно: Информатика

Caktus Image

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

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

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

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

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

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

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

GTP TOP NEWS