Составить алгоритм управления Чертёжником, в результате которого на координатной плоскости будет нарисован квадрат, длина стороны которого равна 9 единицам.

Алгоритм:

сместиться в точку (35,35)
опустить перо
сместиться на вектор (? ,9)
сместиться на вектор (? ,0)
сместиться на вектор (0, ?)
сместиться на вектор (−9,0)

сместиться в точку (35,35)

опустить перо

сместиться на вектор (0 ,9)

сместиться на вектор (9 ,0)

сместиться на вектор (0, -9)

сместиться на вектор (−9,0)

Объяснение:

pascal:

program strings;

uses crt;

var i,open,close: integer;

a: string;

begin

open: =0;

end: =0;

clrscr;

write('введите строку: '); readln(a);

for i: =1 to length(a) do

begin

if a[i]='(' then open: =open+1;

if a[i]=')' then close: =close+1;

end;

writeln('открывающихся скобок: ', open, ' штук');

writeln('закрывающихся скобок: ', close, ' штук');

readln;

end.

имя       возраст     занятие

оля         13             пение

петя         14           баскетбол

вася         13             хоккей

катя         15             танцы

коля         11         баскетбол

серёжа     11           футбол