Удалить из строки все буквы"а" и"о". символ "*" заменить"-".

@Mirka007 · Регистрация: 22.05.2011

дана строка из 40 символов . удалить из неё все буквы"а" и"о". символ "*" заменить"-".
решите задачу плз!

@mustcl · 22.05.2011, 12:53

Pascal

uses crt;
var
   s:string;
   i,j:byte;
begin
     writeln;
     writeln('vvedite stroky');
     readln(s);
     repeat
     i:=pos('a',s);
     j:= pos('o',s);
     if (i<>0) then
        delete(s,i,1);
     if (j<>0) then
        delete(s,j,1);
     until (i=0) and (j=0);
     
     for i:=1 to length(s) do
     if (s[i]='*')then
        s[i]:='-';
     writeln(s);
end.

Добавлено через 2 минуты

Pascal

uses crt;
var
   s:string[40];
   i,j,m,len:byte;
begin
     writeln;
     writeln('vvedite stroky');
     readln(s);
     len:=length(s);
 
     while ((pos('a',s)<>0) and (pos('o',s)<>0)  ) do
     begin
     for i:=1 to len do
     if (s[i]='a') or (s[i]='o') then
     begin
        for m:=i to len-1 do
            s[m]:=s[m+1];
        dec(len);
     end;
     end;
     
     for i:=1 to length(s) do
     if (s[i]='*')then
        s[i]:='-';
 
     for i:=1 to len do
         write(s[i]);
end.

@Mirka007 0 / 0 / 0 Регистрация: 22.05.2011 Сообщений: 5
		1
	Удалить из строки все буквы"а" и"о". символ "" заменить"-". 22.05.2011, 12:25. Просмотров* 2578. Ответов 1 Метки нет (Все метки) дана строка из 40 символов . удалить из неё все буквы"а" и"о". символ "*" заменить"-". решите задачу плз! 0

Опции темы

Удалить из строки все буквы"а" и"о". символ "*" заменить"-".

Решение