Дана строка, удалить из нее все буквы "о". (pascal abc). Помогите, пожалуйста.
Дана строка, удалить из нее все буквы "о". (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.
Не нашли ответ?
Похожие вопросы