Полное ветвление использовать: if ..then.. else или только if ..then?

Ответы и объяснения

  • Участник Знаний
2014-03-31T09:51:31+00:00
Var x,y:real;
begin
write('Введите х: ',x);
readln(x);
if x<=-100 then y:=power(x,1/7);
if (-100<x) and (x<100) then y:=power(x,1/3);
if x>=100 then y:=sqrt(x);
writeln('y=',y)
end.