1.Газета источник,канал бабушка ,мама приёмник
2.Учебник источник , ученик канал , класс приёмник.
3.Переписка источник, брат канал , ты приёмник .
Катя источник и канал , они приёмник.
Var
N: integer;
s: string;
i,c: byte;
begin
ReadLn(N);
Str(N,s);
c:=0;
for i:=1 to Length(s) do
if s[i] in ['0','2','4','6','8'] then
Inc(c);
WriteLn(c);
end.
Начало:1.подойти к телефону,2.поднять трубку телефона,3.набрать номер друга,4.подождать пока друг поднимет трубку,5.поговорить с другом,6.поставить трубку на место,7.отойти от телефона. конец это линейный алгоритм.в линейном алгоритме шаги выполняются в той последовательности,в которой они записаны