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

(Паскаль)

Question

Евгеньюшка

25 октября, 05:07

+3

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