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

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

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


Информатика Начинающий (390 баллов) | 90 просмотров
Дан 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 баллов)
10,984,878 вопросов
13,471,016 ответов
8,518,553 комментариев
4,909,216 пользователей