director
?>

Запишите в порядке возрастания: 30байт , 150бит , 1/20мбайт

Информатика

Ответы

milkiev
150бит 30 байт 1 20 мбайт
VEZZDEXOD73
Во первых почему-то не указана операционная система, потому выберем любую, например linux основные правила   - помнить что большие и маленькие буквы различимы, в отличае от винды - точка впереди имени делает файл или папку скрытой - допустимы все символы, за исключением / - некоторые имена лучше не использовать, такие как пробел, табуляция и следующие: ? " # $ ^ ( ) ; < > [ ] | \ * @ ' ~ & . если вы воспользуетесь символами пробел или табуляция в имени файла или справочника, то вы должны заключить имя в двойные кавычки в командной строке; - кириллица в именах файла при передачи на другие оси скорее всего превратится в абракадабру. кодировки ж разные - для разделения элементов пути используется символ / (прямой слэш), а не \ (обратный слэш), как в windows. - в windows именем файла является document 1, a doc — это расширение. в linux documentl.doc — это имя файла, расширения нет.
Titeeva-Vladimirovich283

uses graphABC;

var xx: integer;

procedure Obl(x,y:integer);

begin

setpenwidth(1);

setpencolor(clwhite);

setbrushcolor(clwhite);

circle(x,y,40);

circle(x+30,y,30);

circle(x-40,y,30);

end;

procedure Kor (x: integer);

begin

setpencolor(clbrown);

setbrushcolor(clbrown);

setpenwidth(3);

rectangle(x+50,250,x+150,270);

line(x+149,268,x+180,250);

line(x+180,250,x+149,250);

floodfill(x+155,255,clbrown);

setpencolor(clwhite);

line(x+100,245,x+180,245);

line(x+180,245,x+100,150);

line(x+100,150,x+100,245);

line(x+90,245,x+50,245);

line(x+50,245,x+90,170);

line(x+90,170,x+90,245);

floodfill(x+105,240,clwhite);

floodfill(x+85,235,clwhite);

end;

begin

setwindowsize(700,500);

lockdrawing;

xx:=-100;

repeat

clearwindow;

setpencolor(clblue);

setbrushcolor(clblue);

rectangle(0,0,700,250);

setpenwidth(5);

setpencolor(clskyblue);

arc(350,-1350,1700,180,0);

floodfill(350,300,clskyblue);

setpencolor(claqua);

arc(350,-1050,1500,180,0);

floodfill(350,400,claqua);

floodfill(350,470,clCream);

Obl(300,90);

Obl(450,150);

Obl(150,110);

setpencolor(clyellow);

setbrushcolor(clyellow);

circle(600,100,50);

Kor (xx);

sleep(1);

xx:=xx+1;

redraw;

until xx>1000;

end.

Объяснение:

получится кораблик:)

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Запишите в порядке возрастания: 30байт , 150бит , 1/20мбайт
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

marver201040
Bologova Golovach1989
Татьяна Гришаевич
Posadskii-Sergeevna
evamining
Ka-shop2791
Sokolova-Shcherbakov
zakup-r51
Xeniya91
D.Yu. Polina1703
zotcet7
sv-opt0076
Nadezhda Malakhov53
Оксана170
windless-el