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

0 голосов
60 просмотров

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


Информатика (390 баллов) | 60 просмотров
Дан 1 ответ
0 голосов

Var N:integer;

begin

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

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

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

end.

 

 

 

 

 

 

 

 

 

 

(200 баллов)