<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>
Pascal abc.
Программа прикреплена к ответу
_______________________________
<span>var a:array[1..100] of integer;
i,n,s,k:integer;
sr:real;
begin
write('введите кол-во эл-тов массива: ');read(n);
for i:=1 to n do begin a[i]:=random(60); write(a[i]:4);end;
for i:=1 to n do
if (a[i] mod 2=0) and (i mod 2<>0) then begin s:=s+a[i]; inc(k); end;
writeln;
writeln('срзнач= ',s/k:4:2);
end.</span>
0 и 0 = 0
0 или 0 = 0
это 1 скобка
1 или 1 = 1
это 2ая скобка
0 и 1 = 0
итог
CLS
S = 0
FOR i =
1 TO 100
S = S +
i
NEXT i
<span>PRINT
"S=", S
</span>