Var i, k, n, sum: Integer;
a: Array[1..1000000] of Integer;
begin
ReadLn(n, k);
for i:=1 to n do a[i]:=i;
sum:=0;
for i:=1 to n do
if a[i] mod k = 0 then
sum:=sum+a[i];
WriteLn(sum);
end.
Program n1;
Uses CRT;
Const a=9;
Var x,y: real;
begin
ClrScr;
Writeln('Vvedite X');
Readln(x);
y:=2-x/12+abs(x)/a-sqrt(a);
writeln(y:5:4);
readln
end.
1)С бидона (8 литров) переливаешь в бидон (5 литров) и того у нас получаеться 3 5 0
2) Переливаем со второго бидона (5 литров) в третий бидон (3 литра) и тогда получаем 3 2 3
3)С третьего бидона (3 литра) переливаем в первый(8 литров) и того у нас получается 6 2 0
4)Далее мы со второго бидона переливаем в третий и получаем 6 0 2
5)Далее с первого во второй и получаем 1 5 2
6)Далее со второго в третий и того 1 4 3
7 и потом из третьего в первый и того 4 4 0
Решено.
a) Максимальное значение суммы разрядов равно 18 (получется как 9+9).
b) Разряды результата разбиватются на два числа, первое из которых не может превышать второе.
214 разбивается на 2 и 14. Такой результат недопустим: если сумма двух чисел была равна 2, то никакое из этих чисел не даст 14 во второй сумме.
148 разбивается на 14 и 8. Такой результат недопустим: нарушен порядок следования сумм.
145 разбивается на 14 и 5. Такой результат недопустим: нарушен порядок следования сумм.
142 разбивается на 14 и 2. Такой результат недопустим: нарушен порядок следования сумм.
514 разбивается на 5 и 14. Такой результат допустим.
814 разбивается на 8 и 14. Такой результат допустим.
114 разбивается на 1 и 14. Такой результат недопустим: если сумма двух чисел была равна 1, то никакое из этих чисел не даст 14 во второй сумме.
Ответ: 2.
