Составить программу вычисления значения функции: - вопрос №1974134 от gasha1234567890 28.11.2021 01:41

Question

Информатика: Составить программу вычисления значения функции:

gasha1234567890 · Answer

program raf105;

var x,y: real;

begin

write('x = ');

readln(x);

if x <= 0

then y:= power(x,2) - 0.3;

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

then y:= 0;

if x > 1

then y:= power(x,2) - x;

writeln('y = ',y);

end.

PascalABC 3.4.2