Составьте программы рисования символов «е», «п», «б», «ч». «ц», «ш», а также других фигур, состоящих из горизонтальных и вертикальных отрезков. на проверку нужно прислать алгоритмы и результаты работы алгоритмов.

// п

uses drawman;

begin

  field(3, 4);

  topoint(1, 1);

  pendown;

  onvector(0, 2);

  onvector(1, 0);

  onvector(0, -2);

end.

// б

uses drawman;

begin

  field(3, 4);

  topoint(1, 1);

  pendown;

  onvector(0, 2);

  onvector(1, 0);

  penup;

  topoint(1, 2);

  pendown;

  onvector(1, 0);

  onvector(0, -1);

  onvector(-1, 0);

end.

// ч

uses drawman;

begin

  field(3, 4);

  topoint(1, 3);

  pendown;

  onvector(0, -1);

  onvector(1, 0);

  onvector(0, 1);

  onvector(0, -2);

end.

// ц

uses drawman;

begin

  field(25, 27);

  topoint(5, 25);

  pendown;

  onvector(0, -20);

  onvector(15, 0);

  onvector(0, 20);

  onvector(0, -20);

  onvector(2, 0);

  onvector(0, -3);

end.

// ш

uses drawman;

begin

  field(4, 4);

  topoint(1, 3);

  pendown;

  onvector(0, -2);

  onvector(2, 0);

  onvector(0, 2);

  onvector(0, -2);

  onvector(-1, 0);

  onvector(0,2);

end.

// e

uses drawman;

begin

  field(3, 4);

  topoint(1, 1);

  pendown;

  onvector(0, 2);

  onvector(1, 0);

  penup;

  topoint(1, 2);

  pendown;

  onvector(1, 0);

  penup;

  topoint(1, 1);

  pendown;

  onvector(1, 0);

end.

(если я тебя правильно понял то вот держи)

ответ: хз

объяснение: а это какой класс?

2^i = 64

i = 6 бит потребуется на 1 символ

256 * 128 * 6 = 196608 бит памяти потребуется чтобы сохранить текст

196608 бит: 8 = 24576 байт : 1024 = 24 килобайт

ответ. 24 килобайт

на паскале:

var

n,s,p: integer;

begin

read(n);

p: =n mod 10;

if p mod 2=0 then writeln ('оканчивается на четную цифру')

                    else writeln ('оканчивается на четную цифру');

while n> 0 do

begin

n: =n div 10;

s: =s+1;

end;

writeln ('количество цифр в числе', s);

end.