Составить процедуру которая заменяет в данном слове все буквы "n" на "m"

@Китя · Регистрация: 14.06.2010

Студворк — интернет-сервис помощи студентам

Составить процедуру, которая:заменяет в данном слове все буквы "n" на "m"

Pascal

program upr4;
uses crt;
var s1,s2,a:string; t:integer;
begin
s1:='n';
s2:='m';
a:='NaNo texNologii';
repeat
t:=pos(a,'n');
if t<>0 then begin
delete (a,t,length('n'));
insert('m',a,t); end;
until t=0;
writeln(a);
readln;
end.

Что здесь не так?

@Puporev · 25.01.2014, 11:55

Да все не так.

Pascal

program upr4;
uses crt;
procedure zamena(var s:string);
var i:byte;
begin
for i:=1 to length(s) do
if s[i]='n' then s[i]:='m'
else if s[i]='N' then s[i]:='M'
end;
var a:string;
begin
clrscr;
a:='NaNo texNologii';
writeln(a);
zamena(a);
writeln(a);
readln;
end.

@Китя · 25.01.2014, 12:10 **[ТС]**

БЛАГОДАРЮ!!! Дай Бог Вам здоровья!!!

@Китя 0 / 0 / 4 Регистрация: 14.06.2010 Сообщений: 82
	25.01.2014, 12:10 [ТС]	3
	БЛАГОДАРЮ!!! Дай Бог Вам здоровья!!! 0

Опции темы