1)Какое служебное слово следует в цикле с убывающим значением параметра, между его начальным и конечным значением? 2)Какое условие цикла в этом фрагменте программы для расчёта наименьшего общего кратного натуральных чисел а и б? if a>b then nok:=a; else nok:=b; while ... выбери один из четырёх (после while) 1)nok0) or ((nok mod b)<>0) 3) Какое условие цикла в этом фрагмента программы для определения того, является ли n степень. числа 3? repear if n mod 3 = 0 then n:=n div 3; untill ... if n=1 then write ('Да') else write ('Нет с во

1)Просыпаюсь 7:00 (ес в первую смену)
2)Заправляю постель
3)Чищу зубы 7:10
4)Завтракаю 7:15
5)Одеваюсь в 7:30
6)Обуваюсь
7)Иду в школу 7:40
8)Переобуваюсь и сдаю куртку в гардероб 7:45
9)Своё расписание напиши и там типо 8:00 -13:00 (распиши все уроки и когда идешь кушать)
10)Иду домой 13:10
11)Мою руки 13:20
12)Ем 13:25
13)Отдыхаю (своё время например до 14:00)
14)Одеваюсь в бассейн на плаванье 14:00
15)Иду в бассейн 14:05
16)Плаваю с 14:15
17)Иду в художку 15:15
18)Рисую в художественной школе 15:30
19)Иду домой в 18:30
20)Мою руки 18:40
21)Ужинаю 18:50
22)Делаю дз 19:00
23)Сижу за компьютером 21:00
24)Умываюсь 22:30
25)Ложусь спать 23:00

Объяснение:= 18; { радиус }

w1 = -0.035; { угловая скорость }

w2 = -0.034; { угловая скорость }

w3 = -0.033; { угловая скорость }

o1 = 180; { радиус вращения }

Var

x,y,t:integer;

begin

setwindowsize(900,600); {размер окна}

x:=450; y:=300; {центр окна}

lockdrawing; {рисование во внеэкранном буфере}

setpenwidth(2);

t := 0;

repeat

clearwindow; {очищение окна}

DrawCircle(450, 300, 200);

DrawCircle(450, 300, 160);

DrawCircle(450, 300, 120);

DrawCircle(450, 300, 80);

t:=t+1;

setbrushcolor(clLime); {время движения }

circle(x + round(o1 * cos(t*w1)), y - round(o1 * sin(t*w1)), r1);

setbrushcolor(clSkyBlue);

circle(x + round(o1 * cos(t*w2)), y - round(o1 * sin(t*w2)), r1);

setbrushcolor(clPurple);

circle(x + round(o1 * cos(t*w3)), y - round(o1 * sin(t*w3)), r1);

sleep(1); {задержка}

redraw; {формирование нового кадра}

until False;

end.