Program n_5;
var
a: integer;
procedure Error;
begin
write('ERROR');
exit;
end;
begin
write('Введите номер месяца - ');
readln(a);
if (a <= 0) or (a > 12) then
Error
else
if (a = 12) or (a = 1) or (a = 2) then
write('Зима')
else
if (a = 3) or (a = 4) or (a = 5) then
write('Весна')
else
if (a = 6) or (a = 7) or (a = 8) then
write('Лето')
else
if (a = 9) or (a = 10) or (a = 11) then
write('Осень');
end.
16 бит=2 байта....................
Вообщем если таблицы истиности то смотри вложение.
Вместо буквы T подставляй 1
Вместо буквы F подставляй 0
Пример:
A B A∧B
T T T
T F F
F T F
F F F
-------------------
A B A∧B
1 1 1
1 0 0
0 1 0
0 0 0
Сад (растения, садовник)
Река (вода, берег)
Игра (игроки, правила)
X = 49. Программа обработает его и выдаст "94". Сумма цифр 4 + 9 = 9 + 4 = 13.