Впаскале написать программе, решите: дано число.если - вопрос №12660145 от Goodsteve31 20.04.2023 11:34

Question

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

Goodsteve31 · Answer

Var N:integer;

begin

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

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

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

end.