1. Определим, во сколько раз 512 Кбайт меньше, чем 3 Мбайт
3 Мб = 3×1024 = 3072 Кбайт
3072/512 = 6.
2. Поскольку файл меньше в 6 раз, время его передачи тоже будет меньше в 6 раз и составит 24/6 = 4 с.
Ответ: 4 секунды.
pow(a,b) - возведение a в степень b
pow(m,1.0/3)
Var
A,B,C:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
A:=C;
B:=A;
C:=B;
WriteLn('A = ',A);
WriteLn('B = ',B);
WriteLn('C = ',C);
End.
Если имеется ввиду, поменять местами переменные в заданном порядке, то вот:
Var
A,B,C:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
Swap(A,C);
Swap(B,A);
Swap(C,B);
WriteLn('A = ',A);
WriteLn('B = ',B);
WriteLn('C = ',C);
End.
<span> program krug;
uses graphabc;
var x,y,r,i:integer;
begin
setwindowsize (640,480);
setwindowtitle ('Êðóã');
setpencolor (clred);
setpenwidth (4);
x:=50;
y:=50;
r:=40;
for i:=1 to 10 do
begin
circle(x,y,r);
x:=x+80;
end;
end.</span>