Регистрация
Alexandra0903
16.02.2020 21:36
Информатика
Есть ответ 👍

Сэтой страницей по информатике - генеза 9 класс ривкинд 2017​

295
481
Посмотреть ответы 1

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

Сельга7
Сельга7
4,4(3 оценок)
Попробуй, может сработает) 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 mod 10) > max)) then begin           max : = nums mod 10;       end;                         if 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);   end.

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