Var A,B,n,M:integer;
Begin
Write('A = ');ReadLn(A);
While A<>0 do
Begin
if (A mod 10) mod 2 = 0 then
Begin
M:=1;
For n:= 0 to n do
M:=M*10;
B:=(A mod 10)*M+B;
n:=n+1;
End;
A:=A div 10;
End;
WriteLn(B div 10);
End.
Пример:
A = 123456789
2468
Сначала едут двое детей , один остается ,а второй едет обратно , от туда едет Муж , а первый ребёнок едет обратно , потом опять едут двое детей ,одни остается , второй возращается , от туда едет жена , а обратно второй ребенок и потом двое детей едут к родителям
Var
a:array[1..100] of integer;
i:integer;
begin
for i:=1 to 100 do
begin
a[i]:=random(100)+1
if ((i mod 2)=0) then write(a[i]," ");
end;
end.