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 класс)))
Я написала в Qbasic Может, сможешь переложить в паскаль
<span>BIOS (Basic Input/Output System). Эта программа не обладает всей функциональностью операционной системы, но её достаточно для того, чтобы загрузить другую программу, которая будет загружать операционную систему.</span>
Program ca;
var
p, i: integer;
begin
i := 3;
p := 1;
while i <= 23 do
begin
p := p * i;
i := i + 2;
end;
writeln('p = ', p);
end.
В слові "процесор" 8 байтів, в 1 байті 8 бітів, отже 8*8= 64 біта