ПОСЛЕДНИЕ ЗАДАНИЕ, ЭТО КР

Это очень не так просто, как кажется на первый взгляд

Объяснение:

Далеко не всегда кодировка была 8 бит на знак.

До сих пор применяется и довольно широко кодировка 7 бит на знак.

Давно уже применяются кодировки 16 и, даже 32 бита на знак.

Но, допустим, мы используем именно ОДИН байт на знак, например ASCII

Хотя и он изначально был семибитным.

1) Дано : в каждой строке 64 знака. Ключевое слово " в строке ",

то есть нам необходимо разделять строки. Для этого в конце каждой строки нужно передать еще два знака - " EOL " и " CR " (конец строки и переход в начало следующей)

Итого в строке 66 знаков.

2) Дано на странице 64 строки. То есть мы обязаны переводить страницы. Значит 64 *66 = 4224 Знака. И еще знак подачи ( перехода ) следующей страницы

Итого на странице 4225 знаков

2) Дано : в книге 128 страниц. Значит знаков 128 * 4225 = 540800 знаков

Это в Кибибайтах 540800 / 1024 = 528.125 Kib или

Или в Килобайтах 540800 / 1000 = 540,800 Kb

Объяснение:

1.

var

 a:array[1..1000] of integer;

 i, n:integer;

 count:integer;

begin

 writeln('Input n = ');

 readln(n);

 for i:=1 to n do begin

   writeln('Input a[', i, '] = ');

   readln(a[i]);

 end;

 count:=0;

 i:=1;

 while (i<=n) do begin

   if (((a[i] mod 3) = 0) and ((a[i] - (a[i] div 10)*10) = 2)) then count:=count + 1;

   i:=i+1;

 end;

 writeln(count);

 readln;

end.

2.

var

 a:array[1..1000] of integer;

 i, n:integer;

 count:integer;

begin

 writeln('Input n = ');

 readln(n);

 for i:=1 to n do begin

   writeln('Input a[', i, '] = ');

   readln(a[i]);

 end;

 count:=0;

 i:=1;

 repeat

   if (((a[i] mod 3) = 0) and ((a[i] - (a[i] div 10)*10) = 2)) then count:=count + 1;

   i:=i+1;

 until (i > n);

 writeln(count);

 readln;

end.