a - двухзначное число, b - первая цифра двухзначного числа
b: = a div 10;
if (b mod 2 = 0) then writeln ('Цифра чётная');
if (b mod 2 = 1) then writeln ('Цифра нечётная');
Смашнюк Данило Русланович - 7 + 6 + 10 символов = 23 символа
23*8 = 184 бита
ЦирКраНебОвал
цирк кран небо овал
компьютер
↓ ↓ ↓ ↓
процессор память устройства ввода устройства вывод
↓ ↓
внутр пам внешн память
↓ ↓
носитель инф накопитель