<span>#include <iostream>
</span><span>#include <iomanip>
</span><span>using namespace std;
</span>void inmas(int* ms,int n) {
<span> for (int i=0; i<n; i++) cin>>ms[i];
</span><span>}
</span>float smas(int* ms,int n) {
<span> int s=0;
</span><span> for (int i=0; i<n; i++) s+=ms[i];
</span><span> return float(s);
</span><span>}
</span>void rezm(int* a, int* b, float* c, float* s, int n) {
<span> for (int i=0; i<n; i++)
</span><span> c[i]=*s/(a[i]+b[i]);
</span><span>}
</span>int main() {
<span> int n;
</span><span> cout<<"n = "; cin>>n;
</span><span> int a[n],b[n];
</span><span> float c[n];
</span><span> float s;
</span><span> cout<<"massiv a: ";
</span><span> inmas(a,n);
</span><span> cout<<"massiv b: ";
</span><span> inmas(b,n);
</span><span> s=smas(a,n);
</span><span> cout<<"summa = "<<s<<endl;
</span><span> rezm(a,b,c,&s,n);
</span><span> cout<<"massiv c: ";
</span><span> for (int i=0; i<n; i++)
</span><span> cout<<setprecision(3)<<c[i]<<" ";
</span><span> cout<<endl;
</span><span> system("pause");
</span><span> return 0;
</span><span>}
</span>n = 8
<span>massiv a: 1 2 3 4 5 6 7 8
</span><span>massiv b: 5 6 7 8 9 10 11 12
</span><span>summa = 36
</span><span>massiv c: 6 4.5 3.6 3 2.57 2.25 2 1.8
</span>
Var n,S,k:integer;
Begin
Write('n = ');ReadLn(n);
S:=0;
k:=0;
While n > 0 do
Begin
S:=S+n mod 10;
k:=k+1;
n:=n div 10
End;
WriteLn(k/S);
End.
Program ryazantsev;
var n,k,i,b,sum:integer;
begin
readln(n,k);
sum:=trunc((1+n)/2*n); //Преобразование типа real к int, trunc можно безопасно использовать, т.к. сумма n членов арифметической последовательности целых чисел - всегда целое число
if sum mod k <> 0 then writeln(0)
else begin
for i:=1 to k do begin
b:=1;
while b<n/k do begin
write(i+b-1, ' ', n-i-b+2, ' ');
b:=b+k
end;
writeln()
end
end;
end.
Пример входных данных, при которых программа выведет ноль: 6 2
И ещё, задачка должна быть оценена явно больше, чем на пять баллов)