P.S Программанаписна для Pascal.
program chislo;
var
n, s, k :real;
begin
writeln('Введите число: ');
read(n);
if n>=0 then
begin
s:=sqrt(n);
writeln('Квадратный корень числа: ',s);
end
else
begin
k:=sqr(n);
writeln('квадрат числа: ',k);
end;
end.
(3-3)*3+3=3
3+3-3:3=5
3+3+3-3=6
3+3+3:3=7
3*3-3:3=8
3:3*3*3=9
<span>Procedure Four(n:integer; var a:a_type); </span>
<span>{Процедура построения квадрата при n двойной четности: n=4,8,12,16...} </span>
<span><span>PascalВыделить код</span><span>1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
<span>Var i,j,k:integer;
p,l:integer;
i1,j1,x,y:integer;
Begin
l:=1; p:=n*n;
for i:=1 to n do
for j:=1 to n do begin
a[i,j]:=l;
inc(l)
{l:=l+1}
end;
i:=2;
while i<=n-2 do begin
if i mod 4=0 then j:=4
else j:=2;
while j<=n-2 do begin
for i1:=0 to 1 do
for j1:=0 to 1 do begin
y:=i+i1; x:=j+j1;
a[y,x]:=p-a[y,x]+1;
end;
j:=j+4;
end;
i:=i+2
end;
k:=4;
while k<=n-4 do begin
a[1,k]:=p-a[1,k]+1; a[1,k+1]:=p-a[1,k+1]+1;
a[n,k]:=p-a[n,k]+1; a[n,k+1]:=p-a[n,k+1]+1;
a[k,1]:=p-a[k,1]+1; a[k+1,1]:=p-a[k+1,1]+1;
a[k,n]:=p-a[k,n]+1; a[k+1,n]:=p-a[k+1,n]+1;
k:=k+4
end;
a[1,1]:=p-a[1,1]+1;
a[n,n]:=p-a[n,n]+1;
a[1,n]:=p-a[1,n]+1;
a[n,1]:=p-a[n,1]+1;
end<span>;</span></span></span></span>
Если я правильно понял формулу то решение будет такое.
program zadacha_1;
var
z, c, v: real;
i, x, y, t : integer;
begin
writeln('Введите Х: ');
read(x);
writeln('Введите Y: ');
read(y);
writeln('Введите T: ');
read(t);
c:=((x * x * x) + (2 * t) + (3 * sqrt(y)));
z:=cos(c) + sin(c);
v:=7*exp(1);
for i:=2 to x do v:=v*v;
z:=z+v;
writeln('Результат равен ', z);
end.