• Дано натуральное число N . Определить наименьшую и наибольшую цифры данного числа (Pascal ABC)

Ответы 1

  • var s:string; max,min:char;begin   write('Введите число: '); readln(s);   max:=s[1]; min:=s[1];    for var i:=2 to s.Length do  begin       if min>s[i] then min:=s[i];       if max<s[i] then max:=s[i];    end;      writeln('max = ',max);   writeln('min = ',min);  end.
  • Добавить свой ответ

Войти через Google

или

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

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

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