Var
X,N:real;
Begin
Write('x = ');ReadLn(x);
Write('n = ');ReadLn(n);
WriteLn('S = ',x*x*x*(1+x*x)+power(x,n));
End.
С помощью функции возведения в степень, при условии, что основание - число вещественное, а показатель - целое.
Function St(O:real;P:integer):real;
Begin
result:=1;
For P:= 1 to P do
result:=result*P;
End;
Var
X:real;
n:integer;
Begin
Write('x = ');
ReadLn(x);
Write('n = ');
ReadLn(n);
WriteLn('S = ',x*x*x*(1+x*x)+St(x,n));
End.
#include "pch.h"
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "rus");
const int dlinna = 14, dlinna2 = 9 ;
int arr[dlinna],chetnie = 0;
cout << "Введите значения массива на 14 элементов!" << endl;
for (int i = 0; i < dlinna; ) {
cin >> arr[i];
if (arr[i] % 2 == 0) {
chetnie++;
}
i++;
}
cout << "Количество четных элементов массива = " << chetnie << endl << endl;
int arr2[dlinna2];
int min= 2147483647, max=-2147483647;
cout << "Теперь введите значения массива на 9 элементов !" << endl;
for (int j = 0; j < dlinna2; j++) {
cin >> arr[j];
if(arr[j] < min) {
min = arr[j];
}if (arr[j] > max) {
max = arr[j];
}
}
cout << "Минимальный элемент массива = " << min << endl;
cout << "Максимальный элемент массива = " << max << endl;
}
Program mm;
var a,x: integer;
begin
uses crt;
write('x');
readln(x);
a:=cos(x)+sqrt(x);
writeln('y= ', a:4:2);
readln; {возможно readkey, зависит от Паскаля}
end.