В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
TlPuBeT
TlPuBeT
07.10.2022 09:02 •  Информатика

Я не понимаю как делать. ​


Я не понимаю как делать. ​

Показать ответ
Ответ:
2313455345
2313455345
02.05.2020 23:18
Неизбежны. Потому что разумное человечество развивается, но при этом в людях все еще находиться их животная сущность. Это у обезьян в бананах счастье, А страны, люди хотят нахапать побольше чтобы жизнь была для них лучше и легче. Неизбежны войны, лучшие умы человечества работают чтобы изобрести новые устройства для захвата и доминирования. И только после того как технологии устареют или потеряют стратегическое преимущество их внедряют в жизнь простых людей. Так появился интернет, сотовый телефон, вай фай. Но не все так плохо. С каждой новой информационной революцией происходит подъем уровня сознания и интеллекта среди людей что означает что информационные революции будут всегда.
0,0(0 оценок)
Ответ:
1039лчдвб
1039лчдвб
28.08.2022 10:36
uses crt,graph; type mas=array[1..500] of Pointtype; var gd,gm,i,j,k,n:integer;     a:mas; begin randomize; gd:=0; initgraph(gd,gm,''); for i:=1 to 500 do  begin   a[i].x:=random(getmaxX);   a[i].y:=random(getmaxY);   circle(a[i].x,a[i].y,2);  end; k:=0;n:=0; repeat k:=k+1; delay(200); setcolor(0); for i:=1 to 500 do circle(a[i].x,a[i].y,2); for i:=1 to 500 do  begin   if a[i].y>getmaxY-n-10 then a[i].y:=1   else a[i].y:=a[i].y+3;   if a[i].x<0 then a[i].x:=getmaxX   else a[i].x:=a[i].x-1;  end; setcolor(15); for i:=1 to 500 do circle(a[i].x,a[i].y,2); if k mod 20=0 then  begin   n:=n+1;   line(0,getmaxY-n,getmaxX,getmaxY-n);  end; until keypressed; readln end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота