Вопрос по информатике:
Дано натуральное число. Найти наибольшую четную цифру. Если четной цифры нет - вывести "не найдено".
1) n=1357
2) n=503
Мы делали таблицы к задачам (на фото), и по ним нужно написать решение. т.е к каждому числу отдельное решение.
- 01.03.2016 11:01
- Информатика
- remove_red_eye 15188
- thumb_up 12
Ответы и объяснения 1
Var n,k : Integer;
Begin
k:=-1;
Readln(N);
While N>0 do
Begin
If (not Odd(N mod 10)) and ((N mod 10)>k) then k:=N mod 10;
N:=N div 10;
end;
If k=-1 then Writeln('не найдено') else Writeln(k);
end.
- 02.03.2016 14:41
- thumb_up 7
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.