Упети 3 клавиатуры ( черная, фиолетовая, зеленая) и 2 мыши (синяя и оранжевая ). сколько различных по - id148109620221105 от summani2005 05.11.2022 04:28

Question

Информатика: Упети 3 клавиатуры ( черная, фиолетовая, зеленая) и 2 мыши (синяя и оранжевая ). сколько различных по цвету наборов он может составить

summani2005 · Accepted Answer

uses crt; var s:string;     c:char;     m:set of char;     n,i,k,p:byte; begin writeln( Введите текст из строчных латинских букв, окончаание ввода Enter ); s:= ; repeat c:=readkey; if c in [ a .. z ] then  begin   write(c);   s:=s+c;  end; if c=#13 then writeln until c=#13; n:=length(s); m:=[]; for c:= a to z do  begin   k:=0;   for i:=1 to n do   if s[i]=c then k:=k+1;   if k 1 then m:=m+[c];  end; if m=[] then write( Нет букв, встречающихся более 1 раза ) else  for c:= a to z do  if c in m then...

Упети 3 клавиатуры ( черная, фиолетовая, зеленая) и 2 мыши (синяя и оранжевая ). сколько различных по цвету наборов он может составить

MOGZ ответил