Дано целое число. Если оно кратно 5, увеличить его в 2 раза, если нет- уменьшить ** 5.

Question

Дано целое число. Если оно кратно 5, увеличить его в 2 раза, если нет- уменьшить на 5.

Answer 1

предлагаю решение на Паскале

var n: integer;
begin
read (n);
if (n mod 5)=0 then n:=n*4
else
n:=n-25;
writeln ('n=',n);
end.