Так вы уже практически написали программу. Осталось только чуть-чуть приукрасить код:
var
x: integer;
begin
readln(x);
if x mod 2 =0 then writeln(x,' четное') else writeln(x,' нечетное');
end.
<span>1 байт это 8 бит
1000\8=125 байт
</span>
1. a = 5;
2. a = 18;
3. a = 26;
4. a = 17;
5. a = 5;
6. a = 34;
7. a = 30, b = 17;
1. 2,048 кбайт
2. 416 бит
3. 120*10*8*800*600 = 4 608 000 000бит -> 576 000 000бит -> 576 000байт -> 576 мбайт
4.10*20=200 точек в изображении каждая точка несет в себе 1 бит информации <span>=> 200 бит в изображении
5. монитор</span>