Найдем первое число из данного диапазона, кратное семи.
100 / 7 = 14 и остаток 2.
100 + (7-2) = 105. (можно найти это число и другими путями).
И теперь задача сводится к нахождению суммы чисел последовательности 105, 112, ... где последнее число не превышает 200,
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
Writeln('S=',Range(105,200,7).Sum)
end.
<u><em>Тестовое решение:</em></u>
S=2107
Надо просто перевести 12 и 17 систему счисления(двоичную,восьмиричную..)
//PascalABC.NET 3.1 сборка 1200
begin
repeat
var n := Random(1000);
if n mod (5 * 7) = 0 then begin
write(n);
Readln;
end
until false;
end.
M = 15, n = 1
m = m-2 = 15-2 = 13; n = n*2 = 1*2 = 2
m<6 ⇒ 13<6 ⇒ нет
m = m-2 = 13-2 = 11; n = n*2 = 2*2 = 4
m<6 ⇒ 11<6 ⇒ нет
m = m-2 = 11-2 = 9; n = n*2 = 4*2 = 8
m<6 ⇒ 9<6 ⇒ нет
m = m-2 = 9-2 = 7; n = n*2 = 8*2 = 16
m<6 ⇒ 7<6 ⇒ нет
m = m-2 = 7-2 = 5; n = n*2 = 16*2 = 32
m<6 ⇒ 5<6 ⇒ да
Ответ: n=32, m=5