Program z1; var a:string; b,i:longint; begin read(a); for i:=length(a) downto 1 do begin if a[i]='o' then Delete(a,i,1); if a[i]='O' then Delete(a,i,1); if a[i]='î' then Delete(a,i,1); if a[i]='Î' then Delete(a,i,1); end; writeln(a); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
