Заполнить одномерный массив положительными и отрицательными числами, размерности 8. найти количество положительных и отрицательных элементов.

Var a: array[1..8]of integer; b,c,d: integer; begin writeln('введите элементы массива'); c: =0; d: =0; for b: =1 to 8 do begin readln(a[b]); if a[b]> 0 then c: =c+1; if a[b]< 0 then d: =d+1; end; writeln('количество положительных элементов равняется ',c); writeln('количество отрицательных элементов равняется ',d); end.

Язык с++: #include < iostream> using namespace std; void main(){ int n=5,  k,  f=1; //f - факториал, n - число, фак-ал которого нужно вычислить while(k< =n){ f*=k; k++; } cout< < "факториал числа  "< < n< < " равен : "< < f< < endl; } pascal: program z4; var n, k, f: integer; begin write('введите число, для которого нужно вычислить факториал :   '); readln(n); k: =1; f: =1; while(k< =n) begin f: =f*k; k: =k+1; end; writeln('факториал равен  :   ', f); end.

Разложим на простые множители число 15=5*3 число делится на 5, когда окончаивается на 5 или на 0. число делится на 3, когда сумма цифр этого числа делится на 3. 1+2+3+4+6=16 нужно придумать 2 цифры такие, чтобы в  сумме с 16, результат был кратен трём, причем вторая цифра должна быть 0 или 5. сначала с 0 на конце: 2 и 0: 16+2+0=18 -делится на 3 5 и 0: 16+5+0=21 - делится на 3 8 и 0: 16+8+0=24 -делится на 3. теперь с 5 на конце: 0 и 5: 16+0+5=21 - делится на 3 3 и 5: 16+3+5=24 - делится на 3 6 и 5: 16+5+5=27 - делится на 3 9 и 5: 16+9+5=30 - делится на 3. итого 7 способов