Ответ:
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "russian");
double x, y;
cin >> x;
if (x == 5)
{
y = pow(x, 4) - x / 5;
}
if (x > 5)
{
y = 4 * x + 2*x/3;
}
else return 0;
cout << endl << y;
}
Объяснение: условие не полное, поэтому решил что есть.
1)
program z1;
Var a:integer;
Begin read(a);
if (a>9) and (a<100) then writeln(a, '-двузначное число')
else writeln(a, '-не является двузначным числом');
end.
2)
program z2;
Var i:integer;
Begin
for i:=1 to 9 do if (i mod 2 = 1) then writeln(i, ', ');
end.
2 способ:
program z2;
Var i:integer;
Begin
i:=1;
while i<=9 do
begin write(i, ', ');
i:=i+2;
end;
end.
3)
program z3;
Var i,n:integer;
S:real;
a: array[1..100] of real;
Begin
write('Введите количество элементов массива:');
readln(n);
write('Введите элементы массива:');
for i:=1 to n do read(a[i]);
i:=1; S:=0;
while i<=n do
begin S:=S+a[i];
i:=i+2;
end;
write('S=',S);
end.
Var n,s,i:integer;
begin
write('Введите число: ');
Readln(n);
s:=0;
for i:=1 to n do s:=s+i;
Writeln('s=',s);
<span>end.</span>
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
type
matrix=array[1..3,1..3] of real;
vector=array[1..3] of real;
procedure MatPrint(a:matrix);
begin
for var i:=1 to 3 do begin
for var j:=1 to 3 do Write(a[i,j]:6:2);
Writeln
end
end;
procedure VecPrint(a:vector);
begin
for var i:=1 to 3 do Write(a[i]:6:2);
Writeln
end;
procedure MV(a:matrix; v:vector; var t:vector);
// Умножение матрицы на вектор
begin
for var i:=1 to 3 do begin
var s:=0.0;
for var j:=1 to 3 do
s+=a[i,j]*v[j];
t[i]:=s
end;
end;
procedure VS(a,b:vector; var t:vector);
// Вычитание векторов
begin
for var i:=1 to 3 do t[i]:=a[i]-b[i]
end;
function SP(a,b:vector):real;
// Скалярное произведение векторов
begin
Result:=0.0;
for var i:=1 to 3 do Result+=a[i]*b[i]
end;
begin
var A:matrix:=((1,2,3),(1,2,1),(3,2,0));
var B:matrix:=((3,1,2),(0,4,3),(1,1,1));
var p:vector:=(0.1,1.7,-1.5);
var q:vector:=(-1.6,0.8,1.1);
var r:vector:=(-0.7,1.3,0.2);
Writeln('Матрица А'); MatPrint(A);
Writeln('Матрица B'); MatPrint(B);
Writeln('Вектор p'); VecPrint(p);
Writeln('Вектор q'); VecPrint(q);
Writeln('Вектор r'); VecPrint(r);
var t1,t2,t3:vector;
MV(A,q,t1);
MV(B,p,t2);
VS(t1,t2,t3);
Writeln('Скалярное произведение равно ',SP(t3,r))
end.
Результаты
Матрица А
1.00 2.00 3.00
1.00 2.00 1.00
3.00 2.00 0.00
Матрица B
3.00 1.00 2.00
0.00 4.00 3.00
1.00 1.00 1.00
Вектор p
0.10 1.70 -1.50
Вектор q
-1.60 0.80 1.10
Вектор r
-0.70 1.30 0.20
Скалярное произведение равно -5.27