#include <iostream>
using namespace std;
int main()
{
int X[10];
long int sum = 0, prod = 1;
int k = 0;
for (int i = 0; i < 10; i++)
{
cout << "X[" << i << "] = ";
cin >> X[i];
if (X[i] < 0) sum += X[i];
if (X[i] != 0) prod *= X[i];
if (X[i] > 0) k++;
}
cout << "Сумма отрицательных = " << sum << endl;
cout << "Количество положительных = " << k << endl;
cout << "Произведение ненулевых = " << prod << endl;
//system("pause");
return 0;
}
Var
x,y:integer;
begin
writeln('Введите X: ');readln(x);
if x <= 0 then
y:=0
else
begin
if (x < 0) or (x <= 1) then
y:=x
else
y:=x*x
end;
writeln(y);
end
функциональность:обучение детей и подготовка к школе
дизайн:простой (возможно редактор paint).
Ответ:
var
x, y: real;
begin
write('введите значение x=');
readln(x);
y := Power(Exp(2/3 - x), 1/5) / Sqrt(Power(x, 2) + Power(x, 4) + Ln(Abs(x - 3.4)));
writeln(y);
end.
Объяснение:
Делал в PascalABC.NET
Вот значения этой функции в трёх точках:
при x=-50 f(x)=10.0652313494729
при x=0 f(x)=1.0328923618595
при x=1 f(x)=0.551686948045355
Var n: integer;
begin
read(n);
write((n+7) div 14)
end.