Если во время работы oc windows одновременно открыто пять окон,то как определить,какое окно активное? 1.его заголовок выделен цветом 2.оно самое большое 3.в нём расположен указатель мыши. ☺
Если вынуть 94 конфет, то будут конфеты всех 3 видов.Пусть у нас по n конфет каждого вида.Тогда может так получиться, что мы вынем 2n конфет, и они будут только 2 видов. И только, вынув (2n+1)-ю конфету, мы получим все три.2n+1 = 942n = 93.Значит, конфет одного и другого вида по [93/2] = 46,а конфет третьего вида 47.Пусть ирисок и леденцов по 46, а шоколадных 47.Вынув 46 ирисок и 46 леденцов (92 конфет), мы получим 2 вида.Вынув 46 ирисок и 47 шоколадных (93), мы получим 2 вида.Вынув 46 леденцов и 47 шоколадных (93), мы получим 2 вида.И только вынув 94-ую (в 1 случае 93 и 94), мы получим 3 вида.ответ: всего конфет было 46 + 46 + 47 = 139.
Var s:string; m,mn,m1,m2:set of char; i,k,l:integer; begin writeln('Введите последовательность русских слов:'); readln(s); m:=['Б','б','В','в','Г','г','Д','д','Ж','ж','З','з','Й','й','Л','л','М','м','Н','н','Р','р']; k:=0; for i:=1 to length(s) do if not (s[i] in ['А'..'Я','а'..'я',' ','.']) then k:=k+1; if k>0 then writeln('Ошибка ввода') else begin while pos(' ',s)>0 do delete(s,pos(' ',s),1); if s[length(s)]='.' then s[length(s)]:=' '; k:=0; mn:=[]; m1:=m; m2:=m; for i:=1 to length(s) do begin mn:=mn+[s[i]]; if s[i]=' ' then begin k:=k+1; if k mod 2=1 then m1:=m1*mn else m2:=m2*mn; mn:=[]; end; end; mn:=m1-m2; print(mn); end; end.
Пример: Введите последовательность русских слов: напечатать в алфавитном порядке звонкие буквы. {н}
