1)Henry_фord быть не может из-за нижнего подчеркивания и кириллицы
2) var_y:real не может быть из-за нижнего подчеркивания и зарезервированных символов и операторов (двоеточие и тип real)
3)_____ из-за нижнего подчеркивания
4)downto зарезервированное слово, тоже нет
5) _С++ из-за нижнего подчеркивания и плюсов.
Var
x, y: real;
begin
Write('Введите значение аргумента x: ');
Readln(x);
y := sqrt(abs(sin(x) + 3 * sqr(cos(x))));
if y = 0 then Writeln('Невозможно вычислить значение функции: деление на ноль')
else Writeln('Значение функции равно ', 1 / y:0:5)
end.
Тестовое решение:
Введите значение аргумента x: 1.53
Значение функции равно 0.99793
#include <iostream>
using namespace std;
int main() {
int n;
cin >> n;
int a[n];
cin >> a[0];
int s(0), min=a[0];
for (int i(1); i<n; i++) {
cin >> a[i];
if (a[i]<min) { s=0; min=a[i]; }
else s+=a[i];
}
cout << "s = " << s << "\n";
return 0;
}
------------------------------------
#include <iostream>
using namespace std;
int main() {
double a[5];
double s(0.0);
for (int i(0); i<5; i++) {
cin >> a[i];
s+=a[i];
cout << "avg = " << s/(i+1) << "\n";
}
return 0;
}
Я пологаю вы работаете с Exel.
Для начала напротив клетки "Площадь", вычислите площать вставив функцию суммы.
В след клетке сложите весь объём так, вставкой математической функции, потом выделив графу глубины и все данные используйте функцию MAX
ПОтом выделеите все клетки напротив "напор" и используйте функцию MIN
Var a,b,c,d,e:real;
Begin
WriteLn('Отрезок [a,b]');
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
WriteLn('Введите три числа');
ReadLn(c,d,e);
if (a<=c)and(a<=d)and(a<=e)and(c<=b)and(d<=b)and(e<=b) then
WriteLn('Числа принадлежат заданному отрезку')
else
WriteLn('Числа не принадлежат заданному отрезку');
ReadLn
End.