Var
i: integer;
ar: array[1..8]of integer;
begin
for i := 1 to 8 do read(ar[i]);
for i := 1 to 8 do
if(i mod 2 = 0) then write(ar[i], ' ');
end.
2, 6, 11
................................................................................
Сначала подсчитать сколько символов на одной странице
25*80=2000 символов на странице
Теперь можно узнать объём текстовой информации умножив кол-во символов на информационный объём одного символа в Unicode (16 бит)
2000*16=32000 Бит объём текстовой информации на странице
Конфеты = А + Х = 3400
Торт = Х + В = 8200
Конфеты I Торт = А + Х + В = 9100
Конфеты & Торт = Х
Конфеты & Торт = Х = Конфеты + Торт - Конфеты | Торт = 3400 + 8200 - 9100 = 11600 - 9100 = 2500
Так вы уже практически написали программу. Осталось только чуть-чуть приукрасить код:
var
x: integer;
begin
readln(x);
if x mod 2 =0 then writeln(x,' четное') else writeln(x,' нечетное');
end.