Угадайте правило, по которому составлена последовательность, продолжите её:а) 2,2,4,8,32,256,8192...б) п,в,с,ч,п,с....в) 1,11,21
Мефродий
А) 2097152, каждый следующий произведение двух предыдущих
б) в, это вервые буквы дней недели
в) 1113213211, тут элементарно, даже писать не буду
г) 36 - 1, 200 - 2, справа от дефиса, кол-во "кружков" в записи числа
Просыпаюсь >потягиваюсь >встаю с кровати>иду чистить зубы>одеваюсь>обуваюсь >иду до школы и тд.
Вот программа, довольно понятная,
комментарии:
lepestkov:=13; - тут можно менять количесто лепестков
fi:=2*3.14*i/lepestkov;
2*Pi - это полный угол 360 градусов. мы делим его на количество лепестков. Таким образом мы получаем угол на который должен идти лепесток.
Картинка ромашки во вложении. если такая не пойдет, отмечай как нарушение.
uses crt, graph;
var gDriver, gMode, errCode:integer;
i:integer;
lepestkov:integer;
fi,x,y:real;
radius:integer;
begin
gDriver:=Detect;
InitGraph(gDriver, gMode,'');
ErrCode:=GraphResult;
if(GraphResult <> grOK) then
begin
writeln('ne mogu naiti file graphiki');
readln;
end;
setcolor(green);
line(320,200,320,400);
setcolor(yellow);
setFillStyle(SolidFill, yellow);
fillellipse(320,200,15,15);
setFillStyle(SolidFill, white);
setcolor(white);
lepestkov:=13;
for i:=1 to lepestkov do
begin
fi:=2*3.14*i/lepestkov;
for radius:=24 to 60 do
begin
x:=320 + radius*cos(fi);
y:=200 + radius*sin(fi);
fillellipse(round(x),round(y),10,10);
end;
end;
readln;
end.
Нет вася не прав так как в кодировании получилось бы 3 бита
18) В
19) Г (моржу)
20) Б (Г6)