Дана строка, удалить из нее все буковкы "о". (pascal abc). Помогите,

Дана строка, удалить из нее все буковкы "о". (pascal abc). Помогите, пожалуйста.

Задать свой вопрос
Элина Булукина
Щас сделаю
Даниил Ергин
Стока на латинице? Большую и махонькую O?
1 ответ
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт