Составить программу на паскале.ПРОШУ

Question

Составить программу на паскале.ПРОШУ

Данил Селиванов Ученик (83), открыт 1 день назад

Вычислить значения функций.Сделай код на Паскале 25. F(x) =
{0 при x < 0;
{x при 0 < x<1;

{х^4 при x >_ 0.

Answer 1

На

 program CalculateFunction; 
 
function F(x: Real): Real; 
begin 
  if x < 0 then F := 0 
  else if x < 1 then F := x 
  else F := x * x * x * x; 
end; 
 
var 
  x: Real; 
begin 
  Write('Введите x: '); ReadLn(x); 
  WriteLn('F(x) = ', F(x):0:2); 
end.