var a:array[1..10,1..10]of integer;
i,j,k,s:integer;
begin
for i:=1 to 10 do for j:=1 to 10 do a[i,j]:=random(9)+1;
for i:=1 to 10 do begin for j:=1 to 10 do write(a[i,j],' '); if j=10 then writeln; end;
s:=1;
for i:=2 to 10 do begin k:=a[i,1];
for j:=2 to 10 do begin
if i mod 2 = 0 then if a[i,j]>k then k:=a[i,j];
if (j=10) and (i mod 2=0) then s:=s*k;
end;
end;
<span>#include <iostream></span>
<span>using namespace std;</span>
<span>int main()</span>
{
<span> const double Pi = 3.14;</span>
<span> double R,V,S;</span>
<span> cout << "Введите радиус шара: \n";</span>
<span> cin >> R;</span>
<span> V = (4/3)*Pi*(R*R*R);</span>
<span> S = Pi*(R*R);</span>
<span> cout << "Объем шара = " << V << " Площадь круга = " << S << " Соотношение " << V/S << " к " << 1 << endl ;</span>
<span>}</span>
Юрист,политолог-самые подходящие под ваши слова.
Z:=a*a*a*cos( b*x*sin(x)*sin(x) ) + exp(1/3 *ln(c) )
ИЛИ
z:=exp(3 * ln(a)) * cos(b*x*sqr(sin(x)) +exp(1/3 * ln(c))
Begin;
writeln('Площадь поверхности Земли=<span>510100000 км.^2);
writeln('Объём Земли=</span><span>1083 млрд. куб. км.');
writeln('Плотность Земли=</span><span>5,51 г/см^3');
end.</span>