<span>Анализ и выполнение команд осуществляет: 1)процессор</span>
Var n,a,m,s,q:integer;
begin
read(n,a);
q:=1;
while n>0 do begin
s:=n mod 10;
if s<>a then begin
m:=m+s*q;
q:=q*10;
end;
n:=n div 10;
end;
writeln(m);
end.
Он родился 27 числа и ему 109 лет
1^2=1+0^2=0+9^2=81
1+81+27=109
Начало
1. 11 - 0
2. 7 - 4
3. 7 - 0
4. 3 - 4
5. 3 - 0
6. 0 - 3
7. 11 - 0
8. 7 - 4
C#
int mas = [N, m]
int r =0;
r = (mas[1] + mas[2])/2;
print(r)