авильный и наиболее полный вариант ответа. В ответе укажите только число номер варианта. а) Наука, изучающая - id1398468620200818 от alekszhirnovp06n4r 18.08.2020 08:55

Question

Информатика: авильный и наиболее полный вариант ответа. В ответе укажите только число номер варианта. а) Наука, изучающая методы хранения, редачи обработки информации с использованием компьютеров, называется: 1) Кибернетикой 2) Информатикой 3) Теорией информации б) Что повлияло на развитие информатики? 1) Достижения физики 2) Создание электронных вычислительных машин 3) Достижения математики ответ: в) Предметом изучения информатики является: 1) Энергия 2) Вещество 3) Информаци

alekszhirnovp06n4r · Accepted Answer

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;...

MOGZ ответил