Дано целое число. Найти наименьшее четное из набора. То есть если число 123, то ответом будет - №1928274

Дано целое число. Найти наименьшее четное из набора. То есть если число 123, то ответом будет 1. Язык паскаль
- Предмет:
  Информатика
- Автор:
  ayaanbonilla
- 6 лет назад

Ответы 1

var min,num:int64;begin writeln('Vvedite chislo'); readln(num); min:=num mod 10; while(num>0) do begin if(min>(num mod 10)) then min:=num mod 10; num:=num div 10; end; writeln(min); readln; end.
- Автор:
  francisco
- 6 лет назад
- 0
Добавить свой ответ

Еще вопросы

Помогите написать небольшое сочинение на тему:"Экологические проблемы Таганрогского залива"
- Предмет:
  Другие предметы
- Автор:
  tuxmbkv
- 6 лет назад
- Ответов:
  
  1
- Смотреть
точка C (-2;1) делит отрезок AB в отношении, AC относится к CB как 3 относится к 4. если его концом служит точка B (-1;1)
- Предмет:
  Математика
- Автор:
  espinoza
- 6 лет назад
- Ответов:
  
  1
- Смотреть
Какое растение древние славяне называли одолень травой, которая, якобы, может одолевать разбойников и нечистую силу-чертей, леших, ведьм. Когда славянин отправлялся в далёкое путешевствие, то зашивал в мешочке (ладанку) кусочек корневища этого растения и вешал себе на шею. Ответьте, о каком растении идёт речь?

Подскажите пожалуйста, срочно надо.

Заранее спасибо!
- Предмет:
  Биология
- Автор:
  konapittman
- 6 лет назад
- Ответов:
  
  1
- Смотреть
помогите пожалуйста дописать...
CH^3COOH+NOOH-->
HCOOH+Mg-->
- Предмет:
  Химия
- Автор:
  ethanbd5w
- 6 лет назад
- Ответов:
  
  1
- Смотреть

How much to ban the user?

1 hour 1 day 100 years