Question

Паскаль. составить программу для решения задачи (y:=x в квадрате + модуль x) и округлить результат до целого числа. (var, begin)

Answer 1

var x: real; y: integer;
begin
write('Введите x: ');
readln(x);
y:=trunc(sqr(x)+abs(x));
write('y равен ',y);
readln;
end.