Var i:integer; s,x:string; begin write('Введите число: '); readln(s); for i:=1 to length(s) do if StrToInt(s[i])mod 2=1 then x:=x+s[i]; writeln(x); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
