Дано целое число n увеличить число в 4 раза если число кратно 5 иначе уменьшить на 25

Question

Васс

20 декабря, 22:14

+4

Ответы (1)

Знаете ответ на вопрос?

Таша · 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.