var i,a,b,m,sum,s:integer;
begin
read(a,b,m);
for i:=a to b do begin
if(i mod m =0)then sum:=sum+i;
if(i mod 2 =1)then s:=s+1;
end;
writeln(sum,' ',s);
end.
Зелёный-цвет
Цвет ногтей-вопрос
Человек утверждение
Пуховый - качество
Правильный ответ
Зелёный
(a, b, c) означает, что в 12-литровой a литров, в 7-литровой b, а в 5-литровой c.
0) (12, 0, 0)
1) (7, 0, 5)
2) (7, 5, 0)
3) (2, 5, 5)
4) (2, 7, 3)
5) (9, 0, 3)
6) (9, 3, 0)
7) (4, 3, 5)
8) (4, 7, 1)
9) (11, 0, 1)
10) (11, 1, 0)
11) (6, 1, 5)
12) (6, 6, 0)
1) 7 - изза начального присвоение m
2) 994. 4 соответствует условию, остальные числа лишь максимизируют число
3)
var
N, d, m: longint;
begin
readln(N);
{m := N mod 10; ошибочная строка}
m:=-1; {N mod 10 - может не удовлетворять условию, 0 - может и удовлетворять условию }
while N > 0 do
begin
d := N mod 10;
if d < 5 then
if d > m then m := d;
N := N div 10;
end;
{if m = 0 then ошибочная строка}
if m = -1 then {если в цикле m так не разу и не поменялась}
writeln('NO')
else writeln(m);
end.