Составить программу в паскале

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

Question

Информатика

Киря

20 сентября, 22:22

Составить программу в паскале

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

+4

Ответы (1)

Знаете ответ?

Лидуля · Answer 1

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.