: , ; .
, , . . , Length, Pos, Copy Delete, Insert.
. Char String ([1], . 73-82).
1. , , .
. srav_sk. s, srav_sk, s.
program string_1;
const srav_sk='<>=(){}[]';
var s:String; i:Integer;
begin
Writeln(' :'); Readln(s);
for i:=1 to Length(s) do
if Pos(s[i],srav_sk)<>0 then write(s[i]);
Readln
end.
2. , , ( ). , , (, , , ).
. , , ns ks , , slovo. , otv. otv , .
program string_2;
var s,slovo,otv:String; ns,ks,i,m:Integer;
begin
Writeln(' :'); Readln(s);
i:=1; ns:=1; otv:=''; s:=s+' ';
while i<=Length(s) do
begin
while (i<=Length(s))and(s[i]<>' ') do i:=i+1; { }
ks:=i; slovo:=Copy(s,ns,ks-ns); { }
m:=Length(slovo) div 2; { }
if (Length(slovo) mod 2=0) and (Copy(slovo,1,m)=Copy(slovo,m+1,m))
{ }
then otv:=otv+slovo+','; { }
while (i<=Length(s))and(s[i]=' ') do i:=i+1; { }
ns:=i; { }
end;
Delete(otv,Length(otv),1); { }
Writeln(otv);
Readln
end.
1. , :
1) ( , );
2) , ( , );
|
|
|
3) ;
4) , ;
5) ;
6) , ;
7) , , ;
8) ;
9) , ;
10) , , ;
11) , ;
12) , , , .
2. , , ( ). , :
1) , ;
2) , : , , ;
3) , ;
4) , ;
5) , (, , ..);
6) -, ;
7) , ;
8) , ;
9) , , ;
10) , "";
11) , "";
12) , .
: a, e, o, u, i, y
: A, E, O, U, I, Y
( ): b, d, g, j, n, m, r, v, z, w
( ): c, f, h, k, l, q, p, s, t, x
: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9
1. , , ( ). , :
a) ;
b) , ;
c) ;
2. . , . : , , . , ...
3. . , ... , 30 .
1. ?
2. ?
3. , ?
4. ?
5. .
1. .. .. : . . , 2010.
2. .. Turbo Pascal: : . .: , 2007.
|
|
|
3. .. . : . .: , 2004.
4. .. . : . .: , 2006.
5. .. 7.0: . , 2001.
6. .. Delphi. ., 2006.
7. .. 7.0: : .-.: , 2003.
8. : / . .. .: , 2002.
9. .. . .: , 2002.
