Дана строка, удалить из нее все буквы "о". (pascal abc). Помогите, пожалуйста.
TheRealGudvin:
Щас сделаю
Ответы
Ответ дал:
2
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.
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.
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад