из представленных ответов правильными могут быть все (модем с Bluetooth, ADSL (по телефонной линии), USB модем/сетевая карта), но обычно используется WiFi
Как то так, можешь заменить так что бы ракета вверх двигалась. Program raketa; uses graphabc; var i:integer; begin For i:=1 to 300 do begin line (i+300,60,i+240,120); line (i+240,120,i+240,360); line (i+360,120,i+360,360); line (i+240,360,i+360,360); line (i+300,60,i+360,120); line (i+240,210,i+210,240); line (i+210,240,i+240,240); line (i+360,210,i+390,240); line (i+390,240,i+360,240); circle (i+300,150,15); circle (i+300,210,15); circle (i+300,270,15); line (i+240,360,i+180,450); line (i+180,450,i+420,450); line (i+420,450,i+360,360); line (i+330,450,i+330,370); line (i+300,450,i+300,365); line (i+270,450,i+270,370); ClearWindow; end; end. end.
{общий член последовательности можно задать формулой Sn=((An-1)+(Bn-1))/(An-1) где A- числитель, В - знаменатель }
const n=10; var A,B,C,i,k: integer; begin A:=1; B:=1; { вывод последовательности на экран } for i:=2 to n do begin C:=A; A:=A+B; B:=C; writeln(i,' -> ',A,'/',B); end; { подсчет k - го члена } k:=20; A:=1; B:=1; for i:=2 to k do begin C:=A; A:=A+B; B:=C; end; writeln(k,' - ый элемент = ',A,'/',B); end.
WiFi
Объяснение:
из представленных ответов правильными могут быть все (модем с Bluetooth, ADSL (по телефонной линии), USB модем/сетевая карта), но обычно используется WiFi