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

Паскаль. массив. из двух списков учащихся, по 15 человек в каждом, сформировать новый список, включив в него все фамилии, стоящие на четных местах в исходных списках.

👇
Ответ:
Lisa5511
Lisa5511
06.02.2022
Программа на скрине! Надеюсь
Паскаль. массив. из двух списков учащихся, по 15 человек в каждом, сформировать новый список, включи
4,4(11 оценок)
Открыть все ответы
Ответ:
tetyanavasil
tetyanavasil
06.02.2022

Объяснение:

Робототехника — отдел прикладной науки, который занимается проектированием, производством и применением автоматизированных технических систем

Первой и главной причиной возникновения науки вляется формирование субъектно-объектных отношений между человеком и природой, между человеком и окружающей его средой. Это связано, в первую очередь, с переходом человечества от собирательства к производящему хозяйству.

Первого действующего человекоподобного робота создал французский изобретатель Жак де Вокансон в 1737 году. Андроид представлял из себя человека в натуральную величину на флейте.

Преимущества использования роботов. Снижаются производственные затраты: быстрый возврат инвестиций в робототехнику превышает первоначальные затраты на отладку оборудования. 

4,4(42 оценок)
Ответ:
chunya20041
chunya20041
06.02.2022
Var a,b,c,d:integer;
begin
  writeln('Введите 4 числа через пробел'); readln(a,b,c,d);
  if (a>0)and(b>0)and(c>0)and(d>0) then writeln('Все числа положительные')
 else if ((a<0)and(b>0)and(c>0)and(d>0))or((a>0)and(b<0)and(c>0)and(d>0))or((a>0)and(b>0)(c<0))or((a>0)and(b>0)and(c>0)and(d<0)) then writeln('3 числа положительные')
  else if ((a<0)and(b<0)and(c>0)and(d>0))or((a<0)and(b>0)and(c<0)and(d>0))or((a<0)and(b>0)and(c>0)and(d>0))or((a<0)and(b>0)and(c>0)and(d<0))or((a>0)and(b<0)and(c<0)and(d>0))or((a>0)and(b<0)and(c>0)and(d<0))or((a>0)and(b>0)and(c<0)and(d<0)) then writeln('2 числа положительных');
  else if ((a>0)and(b<0)and(c<0)and(d<0))or((a<0)and(b>0)and(c<0)and(d<0))or((a<0)and(b<0)and(c>0)and(d<0))or((a<0)and(b<0)and(c<0)and(d>0)) then writeln('1 положительное число')
  else if (a<0)and(b<0)and(c<0)and(d<0) then writeln('Нет положительных чисел');
  readln
end.
4,5(79 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ