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

Составить три с алгоритмами много

👇
Ответ:
владимир203
владимир203
30.04.2021

. Перед вы-

ходнымднемпапа сказал своему сыну: «Давай спла- нируемсвойзавтрашний день. Если будет хорошая погода, то проведем день в лесу. Если же погода будет плохая, то сначала займемся уборкой квартиры, а во вто- рой половине дня сходим вРис. 12

зоопарк». Что получится на выходе блок-схемы(рис. 12), если: а) погода хорошая; б) погода плохая?

Для определения результата воспользуемся трассировочными таблицами (а, б):

а) погода хорошая:

  Шаг1   Исходные значенияПогода хорошая  Результат выполненияПрогулка в лесу  Вывод значенийПрогулка в лесуб) погода плохая:    Шаг1   Исходные значенияПогода плохая   Результат выполненияУборка квартиры    Поход в зоопарк   Вывод значенийПоход в зоопарк 
4,8(19 оценок)
Открыть все ответы
Ответ:
рита436
рита436
30.04.2021

Робототе́хника (от робот и техника; англ. robotics — роботика[1], роботехника[2]) — прикладная наука, занимающаяся разработкой автоматизированных технических систем и являющаяся важнейшей технической основой развития производства[3].

Робототехника опирается на такие дисциплины, как электроника, механика, кибернетика, телемеханика, мехатроника[4], информатика, а также радиотехника и электротехника. Выделяют строительную, промышленную, бытовую, медицинскую, авиационную и экстремальную (военную, космическую, подводную) робототехнику.

4,7(58 оценок)
Ответ:
yakormnevzad
yakormnevzad
30.04.2021

1

var

mas:array[1..100] of integer;

i,n:integer;

en,out:text;

res:real;

qw,qwe:string;  

begin

 n:=0;

 i:=1;

 write('Введите полный путь к импортируемому файлу: ');readln(qw);

 write('Введите полный путь к экспортируемому файлу: ');readln(qwe);

 assign(en,qw+'.txt'); assign(out,qwe+'.txt');  

 reset(en); rewrite(out);

 while not Eof(en) do    

 begin

 readln(en,mas[i]);      

 n:=n+mas[i];                

 inc(i);        

 end;

   res:=(n/(i-1));  

   write(out,res);  

   close(out);      

   close(en);

 end.

Там во вторую тупо добавляешь:

 max:=-100001;

 min:=100001;

if (mas[i]<0) and (mas[i] mod 2 = 0) and (mas[i]<min) then min:=mas[i];

 if (mas[i]>0) and (mas[i] mod 2 = 1) and (mas[i]>max) then max:=mas[i];  

if (max=-100001)or(min=100001) then writeln(out,'ERROR: please, rewrite yor file')

 else  

 begin

   writeln(out,min);

   writeln(out,max);  

Тоже такие же задачи решал)) лол). Ты не из 604??)))

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