Информатика

Поликсения

8 августа, 03:37

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