1 факт- после дождя, может быть радуга, если светит солнце
2) A = True; B = False; C = True
A \/ С /\ (B \/ ¬B → ¬C) = A \/ С /\ (B \/ ¬C) = 1 (True)
3) Вес одного пикселя = 8 бит = 1 байт
(1024 * 768 * 1) / 1024 = 768 Кбайт
Var
A:integer;
Begin
WriteLn('Введите трёзхначное число');
ReadLn(A);
WriteLn(A mod 10, (A div 10) mod 10, A div 100);
End.
Графическая информационная модель
мне так кажется
удачи