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
Ввод: A ^ B ^ C С/П.
П2 -> П1 -> П0 ИП2 - /-/ ИП1 / [x] С/П
Пример: основа - 100, лопасть - 15, максимум - 200. Итого лопастей: 6.
Рыбак одет в зелёную кепку и кофту за спиной удочка он очень рад так как поймал большую рыбу его окружает вода и камыши
Первые следы иероглифического письма в Древнем Египте
Появление алфавитного письма в Финикии
Изобретение технологии изготовления бумаги в Китае
Начало книгопечатания в Европе
Начало книгопечатания в России