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

(Паскаль)

Question

Давид

24 мая, 19:05

+1

Ответы (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(Паскаль)