Дано натуральное число…

Question

Дано натуральное число n. Определить на сколько его максимальная цифра большеминимальной

Answer 1

61

status

07 марта 2023

Program max_min; Var n, c, max, min: integer; Begin write ('Введите натуральное число: '); readln (n); c: =n mod 10; max: =c; min: =c; n: =n div 10; if n=0 then writeln ('Число — однозначное.'); while n>0 do begin c: =n mod 10; if c>max then max: =c; if c

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: