Составить программу в Pascal

1) в строке, введенной с клавиатуры, все буквы И заменить на %

2) из строки, введенной с клавиатуры, удалить все символы, начиная с середины.

Question

Информатика

Настасея

25 сентября, 02:06

Составить программу в Pascal

1) в строке, введенной с клавиатуры, все буквы И заменить на %

2) из строки, введенной с клавиатуры, удалить все символы, начиная с середины.

+2

Ответы (1)

Знаете ответ?

Панюля · Answer 1

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.

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

Составить программу в Pascal

1) в строке, введенной с клавиатуры, все буквы И заменить на %

2) из строки, введенной с клавиатуры, удалить все символы, начиная с середины.