М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Didi12EW
Didi12EW
10.10.2021 05:54 •  Информатика

Сколько работает примерно серверов в мире 1) 100 000 2) 10 000 000 3) 1 000 000 000 4) 100 000 000 000

👇
Ответ:
zhuravskaya1991
zhuravskaya1991
10.10.2021

Я считаю что серверов 2) 10 000 000

4,4(8 оценок)
Открыть все ответы
Ответ:
yana14102004
yana14102004
10.10.2021
Const n=15;
Var a:array[1..n]  of integer;
i,indx,k,tr,indxx:integer;
Begin 
Randomize; 
 For i:=1 to n do  begin
  A[i]:=Random(40)-20; 
 Write(a[i],' '); 
   end; 
       Writeln; 
   write('0 имеет номер: '); 
     For i:=1 to n do   
Begin
 If A[i]=0 thenwrite(i);
 end;
Writeln;
indx:=0; 
 For i:=1 to n do 
  Begin
   If a[i] mod 2=0 then 
  begin 
  indx += 1; 
 a[indx]:=a[i]; 
  end; 
 end; 
    Write('Индекс четных элементов: '); 
 For i:=1 to indx do 
 write(a[i],' ');   
   For i:=1 to n do
    Begin 
   If A[i]<0 then
      Begin   
  inc(k);      
 end;      
   end;   
 Writeln;
 Writeln('Кoличество отрицательных элементов: ',k);
 For i:=1 to n do
  Begin 
 If A[i] mod 3=0 then 
 tr:=a[i];
  end; 
 Writeln('Кратное трем ',tr); 
   indxx:=0; 
 writeln('Индексы кратны 3: '); 
  For i:=1 to n do 
  Begin 
  If a[i] mod 3=0 then 
  begin   
   indxx += 1; 
 a[indxx]:=a[i];
   write(' ',a[i]); 
    end;   
 end;    
  end.  
4,6(48 оценок)
Ответ:
olga810706
olga810706
10.10.2021
Uses GraphABC;
var a,b,c:array[10..99] of integer;
 ast,bst,cst:string;
 i:integer;
begin
ast:='A:';
bst:='Б:';
cst:='В:';
for i:=10 to 99 do
begin
c[i]:=i;
a[i]:=c[i]-i+random(50);
b[i]:=c[i]-a[i];
ast:=ast+' '+inttostr(a[i]);
bst:=bst+' '+inttostr(b[i]);
cst:=cst+' '+inttostr(c[i]);
end;
setpencolor(clRed);
line(0,0,150,0);
line(150,0,75,50);
line(75,50,0,0);
rectangle(0,50,150,300);
DrawTextCentered(0,50,150,300,ast);
setpencolor(clYellow);
line(150,0,300,0);
line(300,0,225,50);
line(225,50,150,0);
rectangle(150,50,300,300);
DrawTextCentered(150,50,300,300,bst);
setpencolor(clGreen);
line(300,0,450,0);
line(450,0,375,50);
line(375,50,300,0);
rectangle(300,50,450,300);
DrawTextCentered(300,50,450,300,cst);
end.
4,6(56 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ