Pascal
Program change;
Var x, y, a: integer;
Begin
Readln(x, y);
If x > y then
Begin
a := x;
x := y;
y:= a;
End;
Writeln(x, y);
End.
Твоя программа получает на вход два числа. Затем она их сравнивает и, если х > у, меняет их значения местами через дополнительную переменную а. Затем выводятся х и у на экран.
В поисковике набери.Он выдаст ответ.Поисковик(г,у,г,л)
Program qq;
const n=15;
var a:array[1..n] of Integer;
i:Integer;
begin
for i:=1 to n do begin
a[i]:=random(70-20);
write(a[i]:4);
end;
writeln;
for i:=1 to n do begin
if a[i] mod 2 = 0 then a[i]:=0;
write(a[i]:4);
end;
end.
Var
a,b,c : integer;
d,x1,x2,s : real;
begin
writeln ('ax^2+bx+c=0');
write ('a=');
readln (a);
write ('b=');
readln (b);
write ('c=');
readln (c);
d := sqr (b) - 4 * a * c;
if d < 0 then
writeln ('Корней нет')
else
begin
x1 := (-b + sqrt (d))/(2*a);
x2 := (-b - sqrt (d))/(2*a);
if x1 <> x2 then
begin
writeln ('x1=',x1);
writeln ('x2=',x2);
s := x1+x2;
writeln ('s=',s);
end
else
writeln ('x=s=',x1);
end;
<span> end.</span>
Объём книги
600*36*64 = <span><span><span>
1382400</span> символов
При 1 байте на символ - </span></span><span><span><span>
1382400</span> байт
64 кб/с - это килобиты в секунду?
Тогда, при 8 битах в байте, надо передать
</span></span><span><span><span>
1382400</span>*8 = </span></span><span><span><span>
11059200</span> бит
за секунду передаётся 64*1024= </span></span><span><span><span>
65536</span> бит
а времени уйдёт
</span></span>11059200/65536 = <span><span><span>
168,75
</span>с</span></span>
