Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.