Известна математическая задача: "Существуют ли два последовательных натуральных числа, сумма цифр каждого из которых делится на 7?" Напишите программу, которая отвечает на вопрос: "Существуют ли два последовательных числа, не превосходящих, сумма цифр каждого из которых делится на?"

Входные данные. Два числа

Выходные данные. Программа выводит два таких числа, если они существуют, "NO" - если нет.

Question

Информатика

Ефросиньюшка

23 февраля, 08:42

Известна математическая задача: "Существуют ли два последовательных натуральных числа, сумма цифр каждого из которых делится на 7?" Напишите программу, которая отвечает на вопрос: "Существуют ли два последовательных числа, не превосходящих, сумма цифр каждого из которых делится на?"

Входные данные. Два числа

Выходные данные. Программа выводит два таких числа, если они существуют, "NO" - если нет.

+5

Ответы (1)

Знаешь ответ?

Варвар · Answer 1

Var k, j, sum:integer;

n, i:longint;

prev, cur, found : boolean;

s:string;

Begin

read (n, k);

for i : = 2 to n do begin

s : = inttostr (i);

sum : = 0;

for j : = 1 to length (s) do

sum : = sum + strtoint (s[j]);

cur : = (sum mod k) = 0;

found : = found or (prev and cur);

if prev and cur then

writeln (i - 1,' ', i);

prev : = cur;

end;

if not found then writeln ('NO');

End.