Добавлено (2007-04-19, 6:20 Pm)
---------------------------------------------
из 15 предметов, а остальные четвёрки и пятёрки

Program String16;
var
i,k,c:integer;
S:string;
BEGIN
writeln('‚ўҐ¤ЁвҐ бва®Єг');
readln(S);
for i:= 1 to length(S) do
begin
c:= ORD(S[i]);
k:= c + 32;
if (c>=65) AND (c<=90) then
S[i]:=CHR(k);
end;
writeln(S);
readln;
end.

Program String29;
var
i,k:integer;
S,S0,P:string;
C:char;
BEGIN
writeln('‚ўҐ¤ЁвҐ ®б­®ў­го бва®Єг');
readln(S);
writeln('‚ўҐ¤ЁвҐ ўбв ў«пҐ¬го бва®Єг');
readln(S0);
writeln('‚ўҐ¤ЁвҐ ЁбЄ®¬л© бЁ¬ў®«');
readln©;
P:=S;
k:=0;
for i:= 1 to length(S) do
begin
if S[i] = C then
begin
insert(S0,P,i + k);
k:=k+length(S0);
end;
end;
writeln('?бЇа ў«Ґ­­ п бва®Є : ',P);
readln;
end.

Program String68;
var
S:string;
i,k:integer;
BEGIN
{97-122, 49-57 жлдал!}
writeln('‚ўҐ¤ЁвҐ бва®Єг');
readln(S);
for i:= 1 to length(S) do
begin
if (ORD(S[i]) > ORD(S[i+1])) AND (ORD(S[i+1])<>0) AND (ORD(S[i+1])>57) then
begin
k:=ORD(S[i]);
writeln ('ЏҐаўл© ­ агиЁвҐ«м: ',k);
readln;
exit;
end;
end;
writeln('Ќ агиЁвҐ«Ґ© ­Ґв!: 0');
readln;
end.

Любил таким заниматся ранее =)

Меня так бесит этот паскаль ))) К концу года голова пухнет от алгоритмов и возможных вариантов решений. Может потому, что я самый младший в группе и начал его учить в 12 лет со 7 класса ?