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

(Паскаль)

Question

Сильвана

17 февраля, 09:25

+2

Ответы (1)

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

Октябрина · Answer 1

Var num : integer;

num2 : real;

begin

readln (num) ;

if num mod 2 = 0 then num2 : = num / 4

else num2 : = num * 5;

writeln (num2) ;

end.

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