Составить программу, которая нарисует корабль.

Program corablik; uses graph, crt; var   grdriver: integer;   grmode: integer;   errcode: integer;   x,y,y0,a,b: integer; {a,b-переменные для линии моря, чтоб они не зависели от х,у}   procedure more(a,b: integer); begin moveto(0,y0); setcolor(blue); for a: =0 to 680 do{слева направо рисуем синусоиду синего чвета}   begin   b: =y0-round(sin(a*pi/180)*30); {30-коэффициент масштабирования по оси х, чем больше, тем волна круче}   lineto(a,b);   end; end;     begin   grdriver : = detect;   initgraph(grdriver, grmode, '..\bgi');   errcode : = graphresult;   y0 : = 250;   if errcode = grok then   begin     x: =600;     while x> =0 do{лучше использовать цикл while, можно менять величину шага, что тоже влияет на скорость и частоту смены картинки}       begin       cleardevice;       more(a,b); {рисуем волну}       setcolor(white); {устанавливаем цвет кораблика}       y: =y0-40-round(sin(x*pi/180)*30); {движемся по волне}       moveto(x - 40, y + 20);       lineto(x - 20, y + 40);       lineto(x + 20, y + 40);       lineto(x + 40, y + 20);       lineto(x - 40, y + 20);       moveto(x + 15, y + 20);       lineto(x + 15, y - 40);       lineto(x - 20, y + 20);       lineto(x + 15, y + 20);       delay(100); {нормальная скорость, если модули *.tpl не глючные как у вас,   время должно быть в миллисекундах, а не в каких-нибудь наносекундах}       x: =x-2; {шаг движения}     end;   end   else writeln('graphics error: ', grapherrormsg(errcode));   settextstyle(0,0,3); {устанавливаем стиль шрифта}   cleardevice;   setcolor(red);   outtextxy(200,240,'rejs zavershen! '); {выводим надпись}   readln;   closegraph; end.

1.   всемирная сеть и сеть.

2. world wide web - сетевой сервис, поддерживающий гипертекстовое пространство интернета.

3. ссылками. на одной странице находится url адрес другой, вы жмякаете на ссылку и вас перебрасывает на другую. или вас техническая сторона вопроса интересует?

4. веб-сервер — сервер, принимающий http-запросы от клиентов, обычно веб-браузеров, и им http-ответы, как правило, вместе с html-страницей, изображением, файлом, медиа-потоком или другими данными.

5.1) перейти по ссылке

2) ввести название в адресную строку

3) поисковая система

6. (телекоммуникационная) сеть — это система связанных между собой локальных сетей и компьютеров отдельных пользователей. персональные компьютеры пользователей (абонентов) подсоединяются к узлам сети.

существуют региональные, отраслевые сети. в настоящее время большинство из них объединено в мировую систему, которая называется «интернет»

Нету пожелания по поводу языка, так то пишу на с++. с объяснением. #include< iostream> #include< fstream> #include< string> // подключаю библиотеку для работы со строками #include < sstream> // подключаю библиотеку для работы с функцией erase using namespace std; int main() { string tt; //заказываю строку cin > > tt; // читаю строку while (tt.find('3')< tt.{ // пока символ 3 присутствует в tt.erase(tt.find('3'), 1); // мы удаляем его } while (tt.find('6')< tt.{ // пока символ 6 присутствует в tt.erase(tt.find('6'), 1); // удаляем его } cout < < tt; // вывод строки return 0; } как то так, причем вводимое число может быть огромным, имеющее больше чем 255 знаков.