Известна математическая задача: " Существуют ли два последовательных…

Question

81

Известна математическая задача: " Существуют ли два последовательных натуральных числа, сумма цифр каждого из которых делится на 7" А Вы попытайтесьнаписать программу, которая отвечает на вопрос " существуют ли два последовательных числа, не превосходящих N, сумма цифр каждого из которых делится на k? "Входные данные: Два числа N (1 <= N <= 10000000000) ,k (1 <= k <= 100) Выходные данные: Программа выводит два таких числа, если они существуют,"NO"- если нет.

категория: информатика

ответить

в избранное ссылка

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

nic87 · Accepted Answer

44

nic87

27 февраля 2023

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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: