Question

В паскале написать программе,пожалуйста решите: Дано число.Если оно кратно 5,то увеличить его на 3

Answer 1

Var N:integer;

begin

read(N);{Считываем значение N}

if(N mod 5 = 0) then N:=N+3;{Если оно кратно 5ти, то увеличиваем на 3}

writeln(N);{Выводим значение N}

end.