Пользователь вводит целое число. Определите ближайшее к нему число кратное 7 (больше введенного). Вывести ответ с соответствующими пояснениями.

Question

Сюта

21 августа, 06:24

+4

Ответы (1)

Знаете ответ на вопрос?

Ела · Answer 1

Var a, b:integer;

begin

write ('a = ') ;

readln (a) ;

b: = (a-a mod 7) div 7*7+7;

writeln ('b = ', b) ;

end.

Пример:

a = 15

b = 21