Составить программу в паскале
Ввести число. Если оно четное и положительное, разделить его на 4, если четное и отрицательное- умножить на 5, если нечетное - возвести в квадрат.

1

Ответы и объяснения

2013-09-17T18:46:04+04:00
Var n:longint;
      c:real;
begin
  write ('N = ');
  readln(n);
  if (n mod 2 = 0) and (n>0)  then c:=n/4 else
    if (n mod 2 = 0) and (n<0) then c:=n*5 else
      if (n mod  = 1) then c:=sqr(n);
  write (c:0:2);
end.