Написать программу, которая вычисляет значение Фотка с заданием ниже))Люди нужно срочно!!!))))))
Answers & Comments
Лотарингская
Var x,y:integer; begin writeln('Введи значение аргумента', x); readln(x); if x<=0 then y:=210 else y:=x*x-1; writeln('Значение функции равно ',y); readln; end.
Answers & Comments
x,y:integer;
begin
writeln('Введи значение аргумента', x);
readln(x);
if x<=0 then y:=210
else y:=x*x-1;
writeln('Значение функции равно ',y);
readln;
end.