#include <iostream>
#include <cmath>
using namespace std;
int x,n;
double r;
int main()
{
r = 0;
cin >> n;
double *ptrarray = new double[n];
for (int i = 0; i < n; i++)
{
cin >> x;
ptrarray[i] = cos(2*x) + 3;
if (fmod(ptrarray[i],2) != 0
{
r=r*ptrarray[i];
}
}
cout << r;
return 0;
}
1.
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "rus");
char arr[100];
int num = 0;
std::cin >> arr;
for (int i = 0; arr[i] != '\0'; i++)
{
num += 1;
}
cout << "Из 100 элементов массива занято: " << num << ", свободно: " << 100 - num << endl;
return 0;
}
Ответ: Б)2
Кажется так. Но ты сам попробуй подумать.
<em>// PascalABC.NET 3.2, сборка 1399 от 08.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadReal('Площадь решета равна');
var a:=ReadArrReal('Введите диаметры клубней:',10);
var d:=sqrt(4*s/pi);
var b:=a.Where(x->x<d);
var n:=b.Count;
if n>0 then begin
Write('Пройдут клубни диаметром '); b.Print;
Writeln(' - всего ',n,' шт.')
end
else Writeln('Ни один клубень не пройдет')
end.
<u>Пример</u>
Площадь решета равна 45
Введите диаметры клубней: 8.6 7.1 9 10.2 6.4 5 6 8.2 6.6 7
Пройдут клубни диаметром 7.1 6.4 5 6 6.6 7 - всего 6 шт.
Можно заменить на
read(x1,y2,x3,x4);