Предмет: Информатика,
автор: KreyLessy
Составить программу, проверяющую, есть ли в числе четные цифры.
Var: n - число,... Язык: Pascal
Ответы
Автор ответа:
0
var a: integer;
begin
Read(a);
while (a > 0) and (a mod 2 <> 0) do a := a div 10;
Write(a > 0)
end.
Интересные вопросы
Предмет: Математика,
автор: yaroslavamyappleid
Предмет: Математика,
автор: albino4kammrrr
Предмет: География,
автор: Аноним
Предмет: Литература,
автор: Рубош