опустить перо
нц 4 раз
сместиться на вектор (0,1)
сместиться на вектор (2,1)
сместиться на вектор (2,-1)
сместиться на вектор (0,-1)
сместиться на вектор (-2,-1)
сместиться на вектор (-2,1)
сместиться на вектор (-2,-1)
сместиться на вектор (2,-1)
сместиться на вектор (2,1)
сместиться на вектор (2,1)
кц
поднять перо
сместиться на вектор (-16,-3)
опустить перо
нц 4 раз
сместиться на вектор (0,1)
сместиться на вектор (2,1)
сместиться на вектор (2,-1)
сместиться на вектор (0,-1)
сместиться на вектор (-2,-1)
сместиться на вектор (-2,1)
сместиться на вектор (-2,-1)
сместиться на вектор (2,-1)
сместиться на вектор (2,1)
сместиться на вектор (2,1)
кц
Объяснение:
1)
var
a, n, s: integer;
begin
write('n = ');
Readln(n);
a := 1;
while a <= n do
begin
s := s + a;
a := a + 1;
end;
writeln(s);
end.
2)
var
a, n: integer;
begin
write('n = ');
Readln(n);
a := 1;
while a <= n do
begin
writeln(2 * a);
a := a + 1;
end;
end.
3)
var
a, b: integer;
begin
write('Введите числа a и b: ');
Readln(a, b);
while a <= b do
begin
writeln(a, '^2 = ', sqr(a));
a := a + 1;
end;
end.
begins:= 'С Днем Конституции!';
font.Color:=clred;write(s);
font.Color:=clgreen;write(s);
font.Color:=clblue;write(s);end.
// вариант для турбо паскаля но проверить не начем
program mypascal;
uses crt;
begin
writeln('С Днем Конституции!');
textcolor(green);
writeln('С Днем Конституции!'); end.