Действительно , что ? Я полностью согласен с Medved." писал(а):Цитата:
Сообщение от C_O_D_E
Описываюсь -- это в смысле объявляю переменные в VAR'е?
И всё же, что под этим подразумевается?
Сам с собой согласен... RESPECTMedved писал(а):Действительно , что ? Я полностью согласен с Medved.
Код: Выделить всё
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.