Поправлю, т.к. сразу в глаза бросилось:Мда, начал писать и понял, что забыл давно язык, а среды под рукой нет, так что ошибки - вероятны
Program Laba
var a,b,c,x,om:real;
begin
a:=2.8;
b:=-0.3;
c:=4;
:in
read x; {ввод X с клавиатуры}
if (x<1) or (x>2) then
begin
writeln('введено неверное число'
goto in;
end;
if x=1,2 then om:=a/x+sqr(x^2+1);
if x<1,2 then om:=a*x^2+b*x+c;
if x>1,2 then om:=(a+b*x)/sqr(x^2+1);
writeln('омега=', om);
end.
if (x<2) or (x>1) then
Поиск
