Program p2;//для 10-ой
Var y,x:integer;
i:byte;
Begin
Readln(x);//введите Х
For i:=1 to 10 do
Y:=y*x;
Writeln(Y);
End.
Program p2;//для 15-ой
Var y,x:integer;
i:byte;
Begin
Readln(x);//введите Х
For i:=1 to 15 do
Y:=y*x;
Writeln(Y);
End.
Используем формулу V = v*t (V - объем передаваемой информации, v скорость передачи, t - время передачи).
1. V = v1*t1, V = v2*t2, t2 = v1*t1/v2
t2 = 256*40/1024 = 10 c
2. V1 = v*t1, V2 = v*t2, V2 = V1 / t1 * t2
V2 = 600 / 30 * 50 = 1000 Кбайт
Добавлять новые элементы поверх старых. Как бы наносить новые слои на старые.
1 1 4
2 вообще-то все отсносятся к заразервированным
3 3
4 1
000 R = 0
001 R = 0
010 R = 1
011 R = 1
100 R = 0
101 R = 0
110 R = 0
111 R = 0
Код программы:
Var A,B,C : Boolean;
Begin
For A:=False to True do
For B:=False to True do
For C:=False to True do Writeln(Ord(A),Ord(B),Ord(C),' R = ',ord((not A) and (B or not C) and B));
end.