Решить примеры по инфе (с решением) (3072 кб + 3072 кб)/2048 байт ответ указать в килобайтах (7 байт - id906069720230519 от Viktoriya3124 19.05.2023 16:51

Question

Информатика: Решить примеры по инфе (с решением) (3072 кб + 3072 кб)/2048 байт ответ указать в килобайтах (7 байт + 3072 бит)+(2 байта + 2016 бит) ответ указать в байтах (9гб + 9216мб)/2гб ответ указать в гигабайтах (8 бит*8бит*8бит+8бит)/1байт ответ указать в байтах

Viktoriya3124 · Accepted Answer

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016 function Гласные_в_слове(w:string):sequence of char; begin   Result:=w.ToCharArray.Where(c- Pos(c, аеёиоуыэюя ) 0).Distinct end; begin   var s:=ReadlnString( );   var w:=s.ToWords( , , . );   var P:=Гласные_в_слове(w[0]);   for var i:=1 to Length(w,0)-1 do begin     var Q:=Гласные_в_слове(w[i]);     P:=P.InterSect(Q)     end;   P:=P.Sorted;   if P.Count 0 then begin     Write( Гласные, которые есть в каждом слове: );     P.Println( , )     end   else...

MOGZ ответил