Для данного вещественного x найти значение следующей функции f, принимающей значения целого типа 0, если x < 0,f (x) = 1, если x принадлежит [0, 1), [2, 3), ... ,-1, если x принадлежит [1, 2), [3, 4), ... - Pascal(Паскаль) - Справочник юного программиста Pascal/Delphi

Program If27;

Var
  y: Integer;
  x: Real;

Begin
  ReadLn(x);
  y := -1;

  While (x >= 2) Do
    x := x - 2;

  If (x < 0) Then
    y := 0
  Else If (x >= 0) And (x < 1) Then
    y := 1;
  WriteLn('f(x) = ', y);

End.

Похожие записи/страницы:

Leave a Comment