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.
18:3=6 рожков 6-5=1 рожок остался на столе 18-3=15 стаканчиков осталось на столе
//Pascal ABC.NET 3.1 сборка 1219
Var
x,y,r:real;
k,i,xi,yi:integer;
begin
readln(x,y);
xi:=round(x-frac(x));
yi:=round(y-frac(y));
for i:=xi to yi do
begin
inc(k);
r:=r+power(i,3);
writeln(i);
end;
writeln('Count=',k);
writeln('Sum=',r);
end.
Пример ввода:
-1.8
2.8
Пример вывода:
Count=4
Sum=8