6папок т.к в 1 папке содержится 2-3 бита
Смотри полученные данные и саму гистограмму в прикреплённых картинках.
--------------------------------------Вроде так--------------------------------------
2) Dim A as integer (объявление переменной)
A=val(Console.ReadLine()) (ввод переменной)
If a mod 2 = 0 then
Writeline =(" Чётное")
else
Writeline = ("Нечётное")
Я в другом языке программирую, но если такой вариант пойдёт, могу остальные дописать. <span />