По замечанию уважаемой nelle987 и представленной ею формулой
, корректирую свой ответ.
Все числа типа
между 123 и 172:
<span>
</span><span>
</span>
//Дам блок-схему и код на Паскале
//Pascal ABC.NET v3.0 сборка 1111
var
r,v,s:real;
begin
readln(r);
v:=4/3*pi*power(r,3);
s:=3/4*pi*sqr(r);
writeln('V=',v,' S=',s);
end.
Привет)вот ответ)Спасибо не забудь!
<span>1.Объем = 11 * 1024 = 11264 байт. Соотношение байт с количеством символов - 1 к 1. Значит каждый символ алфавита кодируется одним байтом. В одном байте 8 бит, соответственно мощность алфавита - 2^8 = 256 символов..</span>
Program zadacha;vara: array[1..1000] of integer;i,n,k: integer;beginwriteln('vvedite kol-vo elementov massiva');readln(n);for i:=1 to n do begina[i]:=random(1000);write(a[i]:6);end;
k:=0;for i:=2 to n do beginif (a[i] mod 2<>0) and (i mod 2 = 0) then beginwriteln();writeln(a[i], ' N ',i);k:=k+1;end;end;writeln();writeln('kol-vo elementov =',k);end.
program zadacha;vara: array[1..1000] of integer;i,n,sum_pol,sum_otr: integer;beginwriteln('vvedite kol-vo elementov massiva');readln(n);for i:=1 to n do begina[i]:=random(1000)-500;write(a[i]:6);end;
sum_pol:=0;sum_otr:=0;for i:=1 to n do beginif a[i]>0 then sum_pol:=sum_pol+a[i];end;writeln();writeln('udvoennaya summa polojit. chisel = ', sum_pol*2);
for i:=1 to n do beginif (a[i]<0) and (i mod 2 <> 0) then sum_otr:=sum_otr+a[i];end;
writeln('summa otricat. i nechetn. chisel = ', sum_otr);end.