ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\";
УКАЗ
Вывод.Цепь('ЯП "Глагол" (диалект Оберона), выпуск 2008 г.');
Вывод.Цепь("^Автор программы: Русский Калькуляторщик.")
КОН Задание.
Данный алгоритм зациклится при условии что впереди не будет стены(препятствия).
Var
a,b,c,y,x,:real;
function stup(x:real;n:integer):real;
var
i:integer;
k:real;
begin
k:=1;
for i:=1 to n do k:=k*x;
stup:=k;
end;
begin
writeln ('Введите x (число должно быть положительным)'); readln (x);
if x>=0 then begin
a:=stup(x,6); b:=stup(x-5,3); c:=stup(2*x+1,5);
y:=(a*b)/c;
Writeln ('y=',y:5:2);
end
end.
Ответ в файле:::::::::::::::::::::::::::::::