Задачка:Найти наименьшую цифру естественного числаФормат ввода:На вход подается естественное,

Задачка:
Отыскать наименьшую цифру натурального числа
Формат ввода:
На вход подается естественное, не превосходящее 30000.
Формат вывода:
Целое число.
Пример входных данных:
651
Пример выходных данных:
1
Пояснение:
Отсутствует.


Сделайте на паскале плз

Задать свой вопрос
1 ответ

Var

x, sum: integer;

begin

read(x);

while(x gt; 0) do

begin

if(x mod 10 lt;= 5) then sum := sum + x mod 10;

x := x div 10;

end;

write(sum);

end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

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

Войти на сайт