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

Question

Альбина

30 июля, 05:46

+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