i,n: integer;
procedure IN1(var a,b:real;n:integer;var y:real);
var
p:real;
i:integer;
begin
y:=1;
for i:=1 to n do
begin
p:=exp(b*ln(a));
y:=p*y;
end;
end;
procedure IN2(var a, b:real; n:integer; var y1:real);
var
p:real;
i:integer;
begin
y1:=0;
for i:=1 to n do
begin
p:=exp(b*ln(a));
y1:=y1+p;
end;
end;
begin
write(' Введите a, b,n');
readln(a,b,n);
IN1(a,b,n,y2);
writeln('p1 ',y2:10:2);
writeln(' Введите c, b,m');
read(a,b,n);
IN2(a,b,n,y3);
writeln('s ',y3:10:2);
write(' Введите e, f,L');
readln(a,b,n);
IN1(a,b,n,y5);
writeln('p2 ',y5:10:2);
y6:=(y2+y3)/y5;
writeln(y6:8:3); end.
#include <iostream>
#include <cstdlib>
using namespace std;
int main()
{
setlocale(LC_ALL,"russian");
int num;
cout << "Введите размер массива: ";
cin >> num;
int a[num];
int sum = 0;
cout << "Вводите элементы массива поочерёдно: " << endl;
for(int i = 0; i<num; i++)
{
cin >> a[i];
if(a[i]%5==0 && a[i]%2==0) // находим в массиве числа, кратные 5 и 2
{
sum = sum + 1;
}
}
cout << "Чётных чисел, кратных пяти и двум: " << sum << endl;
system("pause");
return 0;
}