Информатика

Дека

8 августа, 04:49

Program myprg;

var

x, y: integer;

begin

writeln ('x=') ;

readln (x) ;

if (x>0) and (x<=1) then

y:=sqr (x) - x else y:=sqr (x) - sinpi*xsqr (x) ;

writeln ('y=', y) ;

end.

Program2. pas (8) : Неизвестное имя 'sinpi' если убрать пи то выходит так Program2. pas (8) : Нельзя преобразовать тип function (x: real) : real к int64