кто-нибудь, нужно написать программу в Паскале ABC, и сделать вот такой кораблик кто-нибудь, нужно написать программу в Паскале ABC, и сделать вот такой кораблик.​ ">

program ship;

uses graphabc;

begin

 setwindowsize(260, 220);

 setpencolor(clblack);

 setpenwidth(3);

 {корабль}

 line(120, 20, 20, 140);

 line(120, 20, 60, 150);

 line(20, 140, 60, 150);

 line(120, 20, 120, 160);

 line(120, 140, 240, 140);

 line(240, 140, 120, 20);

 line(40, 160, 240, 160);

 line(240, 160, 220, 200);

 line(220, 200, 80, 200);

 line(80, 200, 40, 160);

 circle(100, 180, 10);

 circle(140, 180, 10);

 circle(180, 180, 10);

 {солнце}

 circle(245, 15, 15);

 setpenwidth(2);

 line(205, 18, 159, 18);

 line(210, 38, 179, 67);

 line(220, 58, 200, 78);

 line(240, 58, 241, 88);

 {птицы}

 setpenwidth(1);

 line(18, 19, 38, 38);

 line(38, 38, 58, 19);

 line(58, 19, 37, 27);

 line(37, 27, 18, 19);

 line(58, 8, 78, 28);

 line(78, 28, 98, 9);

 line(98, 9, 79, 18);

 line(79, 18, 58, 8);

 {клякса на корабле}

 setbrushcolor(clblack);

 circle(120, 160, 5);

end.

Цикл с предусловием это такой цикл, в котором условие проверяется перед выполнением тела цикла.
А цикл с постусловием - на оборот, он сначала выполнит, а потом проверит условие и если условие true, то цикл завершится.

Цикл с постусловием, можно использовать в таких ситуациях, когда надо что-то сделать и если чего-то не хватает, то сделать еще раз. Напрмер отправить письмо на email, а если не отправилось, то повторить еще 3 раза. Сначала выполнится тело цикла, в котором находятся функции отправки письма и если отправка удачная, то сообщаем until() true. Иначе тело выполнится еще и еще и еще кучу раз, если мы не задали счетчик в теле цикла, как вариант...

Цикл с предусловием можно использовать, если надо проверять какое-то значение ПЕРЕД выполнением тела цикла и тебе не важно, должно ли оно хоть раз выполниться. Например запросить пароль у пользователя. Но если пользователь уже ввёл пароль, то зачем его запрашивать? Тут можно было бы использовать while

Для определения информационного объема сообщения воспользуемся формулой: I = K * i,  где K - количество символов, i - вес одного символа.

1)  1024 стра­ни­цы, на одной стра­ни­це по­ме­ща­ет­ся 64 стро­ки, а в стро­ке по­ме­ща­ет­ся 64 сим­во­ла. Каж­дый сим­вол в ко­ди­ров­ке КОИ-8 за­ни­ма­ет 8 бит па­мя­ти.

i = 8 бит

K = 1024 * 64 * 64 = 4194304 символов,

I = 4194304 * 8 = 33554432 бит = 4194304 байт = 4096  Кбайт = 4 Мбайт

2) 512 стра­ниц, на одной стра­ни­це в сред­нем по­ме­ща­ет­ся 64 стро­ки, а в стро­ке 64 сим­во­ла. (Каж­дый сим­вол в ко­ди­ров­ке Unicode за­ни­ма­ет 16 бит па­мя­ти.)

i = 16 бит

K = 512 * 64 * 64 = 2097152 символов,

I = 2097152 * 16 = 33554432 бит = 4194304 байт = 4096 Кбайт = 4 Мбайт

*8 бит = 1 байт

1024 байт = 1 Кбайт

1024 Кбайт = 1 Мбайт