Напишите программу паскаль: С клавиатуры вводится число от 0 до 1000

Напишите программу паскаль: С клавиатуры вводится число от 0 до 1000 включительно. Любая цифра не превосходит 6. Отыскать сумму промежных значений между величайшей и меньшей цифрами в числе?

Задать свой вопрос
1 ответ
Пробуй, может сработает)

program num32;var
  nums, i, min, max, a, i2, i3, sum: integer;begin
  min := 7;
  max := 0;
  sum := 0;
 
  readln(nums);
 
 
  while nums lt;gt; 0 do
  begin
   
    if (((nums mod 10) gt; max)) then begin
      max := nums mod 10;
    end;
   
   
   
    if (((nums mod 10) lt; min)) then begin
      min := nums mod 10;
     
     
    end;
    nums := nums div 10;
   
  end;
 
 
 
  if (min gt; max) then begin
   
    for i2 := max to min do
      sum := sum + i2; 
  end;
 
  if (max gt; min) then begin
    for i2 := min to max do
      sum := sum + i2;
  end;
 
  writeln(sum);
 
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт