Исполнитель Черепашка перемещается на экране компьютера, оставляя след в виде линии. В каждый конкретный момент известно положение исполнителя и направление его движения. У исполнителя существует две команды: Вперёд n (где n — целое число), вызывающая передвижение Черепашки на n шагов в направлении движения; Направо m (где m — целое число), вызывающая изменение направления движения на m градусов по часовой стрелке. Запись Повтори k [Команда1 Команда2 КомандаЗ] означает, что последовательность команд в скобках повторится k раз. Черепашке был дан для исполнения следующий алгоритм: Повтори 5 [Вперёд 100 Направо 120] Какая фигура появится на экране?​

Человеческое общество по мере своего развития этапы овладения веществом, затем энергией и, наконец, информацией. В первобытно-общинном, рабовладельческом и феодальном обществах (в основе существования которых лежало ремесло) деятельность общества в целом и каждого человека в отдельности была направлена, в первую очередь, на овладение веществом.

На заре цивилизации (десятки тысяч лет до н. э.) люди научились изготавливать орудия труда и охоты (каменный топор, стрелы и так далее), в античности появились первые механизмы (рычаг и др.) и средства передвижения (колесницы, корабли), в средние века были изобретены первые сложные орудия труда и механизмы (ткацкий станок, часы).

Овладение энергией находилось в этот период на начальной ступени, в качестве источников энергии использовались Солнце, вода, огонь, ветер и мускульная сила человека.

1)x = (input('x= '))

y = (input('y= '))

z = (input('z= '))

c = ((x % 3 == 0) and (y % 3 == 0) and (z % 3 == 0))

print(

else:

print

2)uses crt;

var x,y:real;

   f1,f2:boolean;

begin

clrscr;

writeln('Введите 2 числа:');

readln(x,y);

f1:=(x>2)and(y>3);

f2:=(x>1)and(y>-2);

writeln(f1);

write(f2);

readln

end.

3)uses crt;

var a,r:real;

 

begin

clrscr;

write('Введите сторону квадрата и радиус круга-> ');

readln(a,r)

if sqr(a)>pi*sqr(r) then write('У квадрата') else write('У круга');

readln;

end.

5)uses crt;

Var a, i, n, S: integer;

Begin

Write('Vvedite n '); readln(n);

S:=0;

For i:=40 to 140 do

 begin

 read(a);

 if (a mod 6 =0) then S:=S+a;

 end;

Writeln(S);

End.