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

Вбочке а имеется 39 литров воды ,а в бочке б 24 литра воды сколько останется воды в бочках после выполнения алгоритма нц пока а< > б если а> б то а: =а-б иначе б: =б-а кц

👇
Ответ:
Masha11781
Masha11781
18.05.2023
вот так всё и просто
решение 39-24= 15
24/15=1.6 кц
не знаю но я так решала 2 года назад
4,7(74 оценок)
Открыть все ответы
Ответ:
sasha1948
sasha1948
18.05.2023

Конструкция

Червяк представляет собой винт со специальной резьбой, в случае эвольвентного профиля колеса форма профиля резьбы близка к трапецеидальной. На практике  применяются однозаходные, двухзаходные и четырёхзаходные червяки.

Червячное колесо представляет собой зубчатое колесо. В технологических целях червячное колесо, как правило[2], изготовляют составленным из двух материалов: венец — из дорогого антифрикционного материала (например, из бронзы), а сердечник — из более дешёвых и прочных сталей или чугунов.

Входной и выходной валы передачи скрещиваются, обычно (но не всегда) под прямым углом.

4,6(29 оценок)
Ответ:
yana14102004
yana14102004
18.05.2023
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 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ