#include<cmath>
#include<iostream> // библиотеки
using namespace std;
int main()
{
setlocale(LC_ALL,"Russian"); //русский язык
int n,x[100],a,sum=0; // переменные
cout<<"Введите размерность массива"<<endl;
cin>>n;
for(int i=1;i<=n;i++) //цикл с вводом элементов массива
{
cout<<"Введите "<<i<<"-й элемент массива"<<endl;
cin>>x[i];
}
for(int i=1;i<=n;i++) //цикл нахождения первого элемента, равного 13
{
a=i;
if(x[i]==13) break;
}
for(int i=1;i<a;i++) //цикл суммирования элементов, стоящих до элемента равного 13, pow - это возведение в степень, т.е. pow(x,2) это x в квадрате.
{
sum=sum +(pow(x[i],2));
}
cout<<"Сумма квадратов чисел, стоящих до элемента "<<a<<" = "<<sum<<endl;
return 0;
}
Объявляем переменные P,i,kc,kn как целочисленный тип.
beginНачало программы.
write('P='); //вводим целое числоВыводим на экран "P=".
readln(P);Считываем переменную P с клавиатуры и переходим на новую строчку.
kc:=0; //четные делителиПрисваиваем переменной kc, в которой будет храниться количество четных делителей, значение 0.
kn:=0; //нечетные делителиПрисваиваем переменной kn, в которой будет храниться количество нечетных делителей, значение 0.
for i:=2 to P do //от 2 до PОбъявляем цикл с переменной i от 2 до P (до числа, которое мы ввели с клавиатуры).
if P mod i=0 then //если n делится на i, это делитель if odd(i)then inc(kn) else inc(kc); //нечетный или четныйЕсли остаток от деления P на i равен нулю, то есть P делится на i без остатка, то смотрим: если i нечетная, то увеличиваем kn на 1, иначе (то есть если i четная), увеличиваем kc на 1.
writeln('Количество четных делителей=',kc,' нечетных=',kn)Выводим на экран: "Количество четных делителей=", значение переменной kc, " нечетных=", значение переменной kn".
end.Конец программы.
Смотрите решение в приложении.