Если это задание для Кумира, то вот нужный алгоритм:
использовать Робот
алг
нач
цел п
нц пока снизу свободно
вниз
кц
нц для п от 0 до 1
нц пока снизу стена
закрасить
влево
кц
нц пока снизу свободно и п=0
влево
кц
кц
вниз
нц для п от 0 до 2
нц пока сверху свободно и п<2
вправо
кц
нц пока сверху стена
закрасить
вправо
кц
кц
кон
Var
y0, yk, yk1, eps, d: double;
i: integer;
begin
y0 := 0; yk1 := y0;
Write('Введите величину погрешности: ');
Readln(eps);
repeat
yk := (yk1 + 1) / (yk1 + 2);
d := yk - yk1;
if d >= eps then yk1 := yk
until d < eps;
Writeln('yn=', yk)
end.
Тестовое решение:
Введите величину погрешности: 1e-8
yn=0.618033988205325
<span>Первая:
</span>
var
x,y,z:real;
begin
readln(x);
y:=x+2.3;
z:=y/1.2;
writeln(x+y+z);
end.
<span>Вторая:
vara,b:real;beginreadln(a);readln(b);writeln('Периметр: ', 2*(a+b));writeln('Площадь: ', a*b);end.
Третья:
varv1,v2,s,t:real;beginreadln(v1);readln(v2);readln(s);readln(t);writeln((v1*t)+(v2*t)+s)end.</span>