Сделать за 9 класс по информатике! написать программу, которая будет вводить n чисел, определять чётное или нечётное число ввели и выводить будет количество чётных чисел.

Var n,i,k:integer;
begin
k:=0;
readln(n);
for i:=1 to n do
begin
read(i)
if i mod 2=0 then k:=k+1
end;
writeln(k)
end.

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var c:char;
  var s:='';
  for var i:=1 to 100 do begin
    Read(c); s+=c;
    end;
  s.Distinct.Where(t->t<>' ').OrderBy(t->t).Println(',')
end.

Пример
а роза упала на лапу азора и карл у клары украл кораллы а клара у карла украла кларнет и это конец строки
а,е,з,и,к,л,н,о,п,р,с,т,у,ц,ы,э

Есть формула объёма видеопамяти она равна

V=M×N×a

a - это глубина цвета, она равна K= 2^{a}

K - это отображаемые цвета

M - это кол-во горизонтальных точек

N - это кол-во вертикальных точек

И так, найдём K, подставив цифры

K=16 777 216 = 2^{24}

Значит a=24

Теперь всё подставим в формулу.

V=1024×768×24 это мы получим кол-во бит

Но лучше сразу перевести в Мб, переведя биты в байты (поделив на 8, байты в КилоБайты делив на 1024 и Кб в Мб делив еще на 1024)

V= \frac{1024*768*24}{8*1024*1024}

1024 сокращается получаем

V= \frac{768*24}{8*1024}

8 и 768 сокращаются

V= \frac{96*24}{1024}

24 и 1024 можно сократить на 4

V= \frac{96*6}{256}

6 и 256 еще сократить можно на 2

V= \frac{96*3}{128}

Думаю хватит сокращений, теперь просто посчитаем

V= \frac{288}{128} = 2,25 Мб