Пожалуйста напишите прогу на Pascal'е!

[Medved]

Цитата:
Сообщение от C_O_D_E
Описываюсь -- это в смысле объявляю переменные в VAR'е?
И всё же, что под этим подразумевается?

Действительно , что ? Я полностью согласен с Medved.

[C_O_D_E]

Действительно , что ? Я полностью согласен с Medved.

Сам с собой согласен... RESPECT

[Medved]

И всё же я этого не узнаю?

[C_O_D_E]

а в каком контексте?

[Medved]

Сообщение от C_O_D_E
Описываюсь -- это в смысле объявляю переменные в VAR'е?

[C_O_D_E]

Где ты здесь OMG нашел?

[Impulsive]

Здараствуйте, прокамментируйте пожалуйста строчки...
Задача озвучена в первом посте #2:

Код: Выделить всё

type setOfChar = set of char;
 const gluh : array [1..10] of char = ('Є','Ї','б','в','д','з','е','ж','и','й'); 
 var ww : array [1..100] of setofChar;
     pODD : array [1..10] of byte;
     pEven: array [1..10] of byte;  
     C:char;
     CP, CO, i, j, len:integer;
     L, S : String;
begin
writeln('ўўҐ¤ЁвҐ Ї®б«Ґ¤®ў*⥫м*®бвм б«®ў');
readln (L);
i:=1;
j:=1;
while (i<= length(l)) and (l[i]<>'.') do begin
   if l[i]=',' then begin
      inc(j);
   end else begin
      include(ww[j], l[i]);
   end;
   inc(i);
end;
len := j;
for i:=1 to 10 do begin
      pODD[i] := 0;
      pEven[i] := 0;
   end;


   for i:=1 to 10 do begin
      C := gluh[i];
      for j := 1 to len do begin
          if C in ww[j] then begin
             if j mod 2 = 0
             then inc(pEven[i])
             else inc(pOdd[i]);
          end;
      end;
   end;

CP := len div 2;  
CO := len div 2 + len mod 2;  
S := '';
for i:=1 to 10 do begin
   if (pOdd[i] = CO) and  
      (pEven[i] < CP)      
   then S := S + gluh[i];
end;

WriteLn(S);
readln;
end.

спасибо