1. Вариант современного решения // PascalABC.NET 3.2, сборка 1439 от 09.05.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('Число четных цифр равно ', abs(ReadInteger('n=')).ToString.Where(c->c.ToDigit.IsEven).Count) end.
Пример n= 363754345 Число четных цифр равно 3
2. Вариант "школьного решения" в синаксисе ТурбоПаскаль 1983г.
program TP70; uses Crt; var n:longint; k,d:byte; begin ClrScr; Write('n= '); Read(n); n:=abs(n); k:=0; while n>0 do begin d:=n mod 10; if d mod 2=0 then Inc(k); n:=n div 10 end; Writeln('Число четных цифр равно ',k); ReadKey; end.
a = int(input("Введите часы [0..24]: "))
if 5 <= a <= 9: print("Утро")
if 10 <= a <= 17: print("День")
if 18 <= a <= 22: print("Вечер")
if a <= 4 or a >= 23: print("Ночь")
Объяснение:
Время написал по наитию, не очень представляю, когда ночь, а когда уже утро :)