Впаскале написать программе, решите: дано число.если - вопрос №12651125 от ренпарне678 01.04.2023 17:20

Question

Информатика: Впаскале написать программе, решите: дано число.если оно кратно 5,то увеличить его на 3

ренпарне678 · Answer

Var N:integer;

begin

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

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

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

end.