PascalВыделить код1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses crt;
var s,s1:string;
c:char;
i,j,k:byte;
begin
writeln('Введите строку');
read(s);
s1:=s;{сделаем копию строки, если строка не нужна, то можно и не делать}
i:=1;
while i.