компьютер
↓ ↓ ↓ ↓
процессор память устройства ввода устройства вывод
↓ ↓
внутр пам внешн память
↓ ↓
носитель инф накопитель
Исполнителями алгоритма на мой взгляд являются В и С
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.
Процессор, оперативная память.
Ну этот кусок может выглядеть так:
---------------
t:= A;
A:=B;
B:=C;
C:=t;
---------------