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.
var a,b,c,max: integer;
begin
readln(a,b,c);
if a>b then max:=a else max:=b;
if c>max then max:=c;
writeln('max = ',max);
end.
Пример:
12 45 31
max = 45
1v0 = 1
1&1=1
0v1=1
1&1=1
1&1=1
ответ 1