V=4/3*pi*r^3;
pi=acos(-1) вроде
а вообще
var
переменные
begin
assign....
assign...
read(r);
writeln(pi*4/3*r*r*r);
end.
а фото тебе просто формулу нужно в паскаль загнать
только что такое In я не знаю, я 7 класс)))
Размер 3-дюймовой диске примерно равен 1,4 мб, или 1430 кб. 1430/350=чуть больше 4, следовательно - 4 учебника.
Const N=10;
TYPE Chisla = array [1..N] of integer;
var f: Chisla;
procedure IChisla (N: integer; var a: Chisla);
begin for var i := 1 to N do a[i] := random(-50, 50);
end;
procedure OChisla(N: integer;a: Chisla);
begin
for var i := 1 to N do write(a[i]:5);
end;
function Sum (a:Chisla): integer;
begin
for var i:=1 to N do
if (a[i] mod 7 = 0) and (a[i] mod 10 = 5) then result:= result+f[i];
end;
BeginI
Chisla (N, f);
OChisla (N, f);
writeln ('Вывести сумму', Sum(f));
<span>End.</span>