Var s:string; i:integer;begin readln(s); for i:=1 to length(s)-1 do if s[i]+s[i+1]='му' then begin delete(s,i,2); insert('ло',s,i); end; writeln(s);end.
http://mojainformatika.ru/paskal/uroki-paskal-stroki/118-standartnye-proczedury-i-funkczii-primenyae...
<span>выделить его, а затем переместить при одновременно нажатых левой кнопке и клавише ctrl</span>
GIF, JPEG, PNG, и WebP-форматы у изображения
Если сейчас он поет, то через 45 минут он будет махать хвостом
Var i:integer;
s:real;
begin
s:=0;
for i:=5 to 26 do
s:=s+sqrt(i);
write('Ответ: ',s);
end.