ответ
опустить перо
сместиться на вектор ( 0,4)
сместиться на вектор(2,0)
поднять перо
сместиться на вектор ( -2,-2)
опустить перо
сместиться на вектор ( 2,0)
сместиться на вектор ( 0,-2)
сместиться на вектор ( -2,0)
поднять перо
сместиться на вектор ( 3,0)
опустить перо
сместиться на вектор ( 0,2)
сместиться на вектор ( 2,2)
сместиться на вектор (0,4)
сместиться на вектор ( 0,1)
сместиться на вектор ( -2,0 )
поднять перо
сместиться на вектор ( 3,-1)
опустить перо
сместиться на вектор ( 0,4 )
сместиться на вектор ( 2,0)
сместиться на вектор ( 0,-4)
сместиться на вектор ( -2,0)
поднять перо
сместиться на вектор ( 3,0)
опустить перо
сместиться на вектор ( 0,4)
сместиться на вектор(2,0)
поднять перо
сместиться на вектор ( -2,-2)
опустить перо
сместиться на вектор ( 2,0)
сместиться на вектор ( 0,-2)
сместиться на вектор ( -2,0)
поднять перо
сместиться на вектор ( 0,4)
сместиться на вектор(2,0)
поднять перо
сместиться на вектор ( -2,-2)
опустить перо
сместиться на вектор ( 2,0)
сместиться на вектор ( 0,-2)
сместиться на вектор ( -2,0)
поднять перо
сместиться на вектор (3,0)
опустить перо
сместиться на вектор ( 0,2)
сместиться на вектор ( 2,2)
сместиться на вектор (0,4)
сместиться на вектор ( 0,1)
сместиться на вектор ( -2,0 )
поднять перо
сместиться на вектор(3,-1)
опустить перо
сместиться на вектор ( 0,4)
сместиться на вектор(2,0)
поднять перо
сместиться на вектор ( -2,-2)
опустить перо
сместиться на вектор ( 2,0)
сместиться на вектор ( 0,-2)
сместиться на вектор ( -2,0)
Объяснение:
вроде бы работает
1)
program fantscrin;
var s:string; i, plus, minus:integer;
begin
write('Введите строку:'); readln(s);
plus:= 0;
minus:= 0;
for i:=1 to length(s) do
begin
if s[i] = '+' then plus := plus + 1;
if s[i] = '-' then minus := minus + 1;
end;
writeln;
if plus > minus then for i:=1 to plus do
write('+')
else if plus < minus then for i:=1 to minus do
write('-')
else write('Кол-во знаков одинаковое!');
end.
2)
program fantscrin;
var y,x,b,e:real; i:integer;
begin
write('Введите число b:'); readln(b);
e:= 2.7;
x:= 0;
writeln;
writeln(' y | x ');
writeln('');
while x <= 10 do
begin
if x < 3 then
begin
y:= Exp(x * Ln(e)) + 1 / (x + 1);
writeln(y:6:5, ' | ', x:6:5)
end;
if x = 3 then
begin
y:= Sin(x) + sqrt(x);
writeln(y:6:5, ' | ', x:6:5);
end;
if x > 3 then
begin
y:= Cos(x) + Abs(b);
writeln(y:6:5, ' | ', x:6:5);
end;
x:= x + 0.5;
end;
end.
