Написать программу, которая вычисляет значение
Фотка с заданием ниже))Люди нужно срочно!!!))))))

1

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

2014-03-17T17:16:39+00:00
Var
x,y:integer;
begin
writeln('Введи значение аргумента', x);
readln(x);
if x<=0 then y:=210 
else y:=x*x-1;
writeln('Значение функции равно ',y);
readln;
end.