Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Составить программу в Pascal
1)в строке , введенной с клавиатуры , все буквы И заменить на %
2)из строки, введенной с клавиатуры , удалить все символы ,начиная с середины.

Ответ оставил Гость

1)
var
s:string;
i:longint;
begin
read(s);

for i:=1 to length(s) do
 if s[i]=И then s[i]:=%;

writeln(s);
end.

2)
var
s:string;
l:longint;
begin
read(s);

l:=length(s);
delete(s, (l div 2)+1, l-(l div 2));

writeln(s);
end.