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

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

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

Question

Информатика

Ион

10 мая, 15:50

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

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

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

+1

Ответы (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.