1) 2^15<65000<2^16 ----> 16 бит для одного цвета
2) 16 : 8 =2 уменьшение в два раза (ответ 4)
Program jkfj;
var
a,b:integer;
begin
writeln ('Введите 1-ое число');
read (a);
writeln ('Введите 2-ое число');
read (b);
if a<b then write ('Большее b')
else write ('Большее a');
if a=b then write ('a и b равны')
end.
Сакура, могут быть ошибки в знаках, но в целом вроде хорошо!
Var
A:integer;
Begin
WriteLn('Введите номер месяца');
ReadLn(A);
A:=A mod 12;
Case A of
0,1,2:WriteLn('Зима');
3,4,5:WriteLn('Весна');
6,7,8:WriteLn('Лето');
9,10,11:WriteLn('Осень')
End
End.