С! (pascal abc .net) пользователь вводить числа до нуля. надо: 1. подсчитать сумму все отрицательных четных чисел 2. подсчитать количество четных чисел кратных 3. 3. подсчитать сумму и количество трехзначных нечетных чисел

Program gt; var a,s1,k1,s2,k2: integer; begin a: =1; while a< > 0 do begin read(a); if(a< 0)and(abs(a)mod 2=0)then s1: =s1+a; if(a mod 2=0)and(a  mod   3=0)then k1: =k1+1; if(a> 99)and(a< 1000)and(a mod 2=1)then begin k2: =k2+1; s2: =s2+a; end; end; writeln('условие 1'); writeln(s1); writeln('условие 2'); writeln(k1); writeln('условие 3'); writeln(s2,' ',k2); end.

ответ:

315

объяснение:

k=1   j=1: m=1-> 1 s=0+(1+1+1)=3

k=2   j=1: m=1-> 1     s=3+(2+1+1)=7

        j=2: m=1-> 2 s=7+(2+2+1)+ (2+2+2)=18

k=3   j=1: m=1-> 1     s=18+(3+1+1)=23

        j=2: m=1-> 2     s=23+(3+2+1)+ (3+2+2)=36

        j=3: m=1-> 3     s=36+(3+3+1)+(3+3+2)+(3+3+3)=60

k=4   j=1: m=1-> 1       s=60+(4+1+1)=66

        j=2: m=1-> 2       s=66+(4+2+1)+(4+2+2)=81

        j=3: m=1-> 3       s=81+(4+3+1)+ (4+3+2)+(4+3+3)=108

        j=4: m=1-> 4       s=108+(4+4+1)+(4+4+2)+(4+4+3)+(4+4+4)=150

k=5   j=1: m=1-> 1       s=150+(5+1+1)=157

        j=2: m=1-> 2       s=157+(5+2+1)+(5+2+2)=174

        j=3: m=1-> 3       s=174+(5+3+1)+(5+3+2)+(5+3+3)=204

        j=4: m=1-> 4       s=204+(5+4+1)+(5+4+2)+(5+4+3)+(5+4+4)=250

        j=5: m=1-> 5       s=250+(5+5+1)+(5+5+2)+(5+5+3)+(5+5+4)+(5+5+5)=315

Язык  c++ #include < iostream> using namespace std; int main() {     int n,b=0;     cin > > n;     int a[n]; // n - кол-во элементов в массиве     for(int i = 0; i < n; i++)     {         cin > > a[i];     }     for(int i = 0; i < n; i++)     {         if(a[i]< 0)         {             b=a[i]+b;         }     }     cout < < b < < endl;     return 0; }