Сократите эту программу program sr; var a, b, c : real; y, x, xb, xc : real; na, nb, nc: integer; 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 na : = 6; nb : = 3; nc : = 5; xb : = x-5; xc : = 2*x+1; a : = stup (x,na); b : = stup (xb, nb); c : = stup ( xc, nc); y : = (a*b)/c; writeln ('y=', y: 5: 2); end; end.
nataotkidach
3
23.09.2019 17:40
0 
Популярные вопросы
- При освітленні поверхні металу світлом з довжиною хвилі 250нМ максимальна...
1 - Прочитайте предложения. Укажите приложения, присоединяемые сою зом...
2 - Гаметофіт, спорофіт, спори, проростаюча спора, молода рослина. Вказати...
2 - 1. Прямая АВ касается окружности с центром О и радиусом 5 см в точке...
3 - У первого скорость 28 км в час у втарого неизвестно все расстояние...
3 - Выполните задание: Выпишите СППс придочными сравнительными,составьте...
3 - Лист бумаги расчерчен со сторонами 4 см и 7 см 1 на рисунке по линиям...
2 - ВВсе ли данные глаголы имеют возвратный форму например боятся сердиться...
3 - КАКУЮ РОЛЬ ИГРАЮТ ВОДОРОСЛИ В ЖИЗНИ ЧЕЛОВЕКА И В ПРИРОДЕ...
2 - Вычислите. 1) Сколько всего ног у 22 кур и 7 индюков? 2) Сколько...
1
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.