использовать Чертежник
алг
нач
сместиться в точку (0,13)
опустить перо
сместиться в точку (10,13)
сместиться в точку (7,16)
сместиться в точку (3,16)
сместиться в точку (0,13)
сместиться в точку (0,0)
сместиться в точку (10,0)
сместиться в точку (10,13)
сместиться в точку (10,3)
сместиться в точку (8,3)
сместиться в точку (8,0)
поднять перо
сместиться в точку (1,12)
нц 3 раз
нц 3 раз
опустить перо
сместиться на вектор (2,0)
сместиться на вектор (0,-2)
сместиться на вектор (-2,0)
сместиться на вектор (0,2)
сместиться на вектор (1,0)
сместиться на вектор (0,-2)
сместиться на вектор (0,1)
сместиться на вектор (-1,0)
сместиться на вектор (2,0)
поднять перо
сместиться на вектор (1,1)
кц
сместиться на вектор (-9,-3)
кц
сместиться в точку (0,0)
кон
Объяснение:
Смотри картинку
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.
дом состоит из 148 клеток
Объяснение:
дом состоит из 148 клеток