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

Уменя такая проблема у меня несколько по информатике которые я решить не могу ! 1) какая фирма является 1 сотовым оператором в россии? 2) четыре девочки встали в круг.девочек звали галина, людмила,марина и полина . девочки отличаются цветом волос ( блондинка,брюнетка,рыжая и шатенка). какие волосы у галины ? ели верны следующие утверждения: слева от блондинки брюнетка, справа от рыжей шатенка , слева от полины блондинка ,напротив марины, людмилы. а) светлые; б)темные; 3)рыжие: 4)каштановые. 3)когда у крестьянина спросили " коков рост его сына ? " он шутя ответил загадкой . ответьте на загадку крестьянина, если известно, что вершок равен 1/4 пяди,ноготок равен 1/4 вершка, аршин равен четырём пядям. "сын мой от горшка всего лишь два вершка. мой горшок две пяди, да ещё полпяди, да ещё вершок, после ноготок. на сколько же мой сыне ниже чем аршин. 4) головоломка дьюдени - о пауке и мухе ( 1903 г) в комнате , имеющий форму прямоугольного параллелепипеда, на противоположных стенках на серидине боковой стены сидят паук и муха. парализованная страхом муха не может двинуться с места. найдите кратчайщое расстояние , которое должен пройти паук до мухи . параметры куба - длина 30 : высота 12: ширена стенки 15

👇
Ответ:
valeri1232
valeri1232
05.05.2020
1 вопрос-Московская Сотовая(ММС)
2 ВОПРОС- Брюнетка
3 вопрос- 4 пяди, но я не уверенна
4,7(16 оценок)
Открыть все ответы
Ответ:
Uses Crt;
const
  n=10;
var
  a,b:array[1..n] of integer;
  i,k,t:integer;
begin
  ClrScr;
  Randomize;
  for i:=1 to n do begin
    a[i]:=Random(50);
    Write(a[i],' ')
    end;
  Writeln;
  for i:=1 to n do begin
    b[i]:=Random(50);
    Write(b[i],' ')
    end;
  Writeln;
  Write('k t='); Read(k,t);
  for i:=1 to n do begin
    if a[i]>t then a[i]:=a[i]+4;
    Write(a[i],' ')
    end;
  Writeln;
  for i:=1 to n do begin
    if b[i]>10*k then b[i]:=b[i]+k;
    Write(b[i],' ')
    end;
  Readkey
end.

Тестовое решение:
1 6 23 12 47 1 44 24 6 18
31 30 30 29 0 3 43 32 46 21
k t=2 20
1 6 27 12 51 1 48 28 6 18
33 32 32 31 0 3 45 34 48 23
4,5(92 оценок)
Ответ:
azs194karelin
azs194karelin
05.05.2020
var  mas1, mas2: array[0..9] of integer;  t, k, i, j: integer; 
begin  
readln(t);  
readln(k);  
for j := 0 to 1 do  begin   
      if (j = 1) then writeln();        
                 for i := 0 to 9 do    begin      
                          if(j = 0) then begin       
                                  mas1[i] := random(100);        
                                    write(mas1[i], ' ');       
                                    if mas1[i] > t Then mas1[i] := mas1[i] + 4;      
                              end      
                            else 
                               begin       
                                      mas2[i] := random(100);        
                                      write(mas2[i], ' ');       
                                       if mas2[i] > 10 * K Then         
                                            mas2[i] := mas2[i] + K;      
                                end;    
                       end;       
                  for i := 0 to 9 do     
                         if (j = 0) then 
                               write(mas1[i]) 
                        else 
                                write(mas2[i]);    
               writeln();  
           end;  
readln();
end.

))
4,7(48 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ