Цитата:
Сообщение от Solom1k
1.На мячиках в магазине игрушек изображены английские и русские буквы и цифры. Нужно отобрать для детского сада мячики с русскими буквами и цифрами, причем в детском саду одинаковых мячей быть не должно. Сформировать нужный набор и распечатать его
|
Как-то так:
Код:
Const
N=40; {balls in shop}
Var
S:set of Char;
A:Array[1..N] of Char;
i,M:Byte;
Begin
Randomize;
S:=[];
Writeln('Balls in shop:');
for i:=1 to N do
begin
M:=Random(126);
if M<10 then M:=M+48 else {0..9}
if M<36 then M:=M+55 else {A..Z}
if M<62 then M:=M+61 else {a..z}
M:=M+130; {А..я}
A[i]:=Chr(M);
Write(A[i]+' ');
end;
Writeln('Balls for kindergarten:');
for i:=1 to N do
if (((Ord(A[i])>47) and (Ord(A[i])<58)) or (Ord(A[i])>191)) and not(A[i] in S) then
begin
S:=S+[A[i]];
write(A[i]+' ');
end;
Readln
End.