Дан файл символьного типа. распечатать коды asc11 записанных в него символов двумя способами

Var   f: text;   i: integer;   c: char;     begin   assign(f, 'in.txt');   reset(f);       while not (eof(f)) do   begin     read(f, c);     writeln(c, '   ', ord(c));   end;       writeln('===================');   reset(f);       while not (eof(f)) do //второй способ, перебором получить код   begin     i : = 0;     read(f, c);     repeat       i : = i + 1;     until (chr(i) = c);     writeln(c, '   ', i);   end; end.

// pascalabc.net 3.3 begin   var a: =matrrandom(7,7,-10,10);   writeln('a: '); a.println(5);   var s: =a.elementswithindexes.where(k-> (k[1]=k[2])and(k[0].           select(k-> k[0]).sum;   writeln('s = ',s); end. пример: a:     5    3    -8    3    -2    -9    -5     -4    5    -7    9    -1    -9    3     -6    -5    10    -6    3    2    -8     -6    10  -10    -2    7    7    2     -7    1    4    -6    10    -6    -6     -9    -2    -3    6    6    -7    8     -8    10    9  -10    2    10    -3 s = 18

чтобы сделать объемную пятиконечную звезду, вам потребуется всего лишь квадратный лист бумаги или картона, и две минуты времени.

итак, чтобы сделать объемную звезду, возьмите квадратный лист, сложите его пополам. запомните: все остальные действия необходимо выполнять, чтобы сложенный пополам лист лежал сгибом вниз.

складываем листик еще раз пополам – получаем полосу сгиба.

теперь нам нужны еще две полосы – для этого необходимо свернуть нашу заготовку таким образом:

и потом еще вот так:

далее берем левый нижний уголочек и прикладываем его к середине – точке пересечения двух линий.

потом отгибаем таким образом:

и к полученной линии ровненько пригибаем правую сторону:

дальше складываем нашу заготовку пополам, загибая назад:

следующее действие: отогнуть уголочек, чтобы получить еще одну линию сгиба – по ней нужно будет отрезать, получив в результате треугольник:

держим вот этой стороной к себе:

загибаем:

распрямляем:

и отрезаем и получаем:

в принципе, звезда готова – осталось ее развернуть и слегка подправить все линии, чтобы получилось, как положено:

вот и все, можно красить гуашью или красками, если вы делали из белой бумаги.конечно, это далеко не единственный способ сделать объемную звезду, и в дальнейшем мы обязательно расскажем вам о других вариантах, чтобы было из чего выбрать.