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

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

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

Question

Информатика

Ларуся

12 августа, 09:58

Известна математическая задача: "Существуют ли два последовательных натуральных числа, сумма цифр каждого из которых делится на 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.