Ответ:
program Test;
var
n, t: Integer;
b: Boolean;
begin
Write ('Введите трехзначное число: ');
ReadLn (n);
if (n >= 100) and (n <= 999) then begin
if (n mod 10) mod 2 = 0 then
WriteLn ('четная')
else
WriteLn ('не четная');
end else
WriteLn (n, ' - не трехзначное');
ReadLn;
end.
Решение с помощью таблицы приведено во вложении.
Числами обозначены клетки, состояние которых определено в высказывании под соответствующим числу номером. Красный фон - отрицательный результат, зеленый - положительный.
Полезно нарисовать пустую таблицу и заполнять её, ставя знак "минус" (или записывая "нет") вместо красного фона и знак "плюс" ("да") вместо зеленого.
Г-голубая куртка
Р-розовая куртка
Ф-фиолетовая куртка
З-золотая кепка
В-кепка в горошек
Рассмотрим все различные варианты:
ГЗ
РЗ
ФЗ
ГВ
РВ
ФВ
6 вариантов
Также эту задачу можно решить с помощью комбинаторики:
3*2=6
Ответ: 6
Б. Паскаль- правильный ответ
1. самое простое ПЕРЕ и нарисовать ДАЧУ
2. или нарисовать Ч перед А и в конце подписать А и получится перед АчА
<span>3. Х, нарисовать экран и впереди поставить две запятые убирающие ЭК (остается РАН) , Pa(давление) и впереди 4 запятых и получится Х ' '(экран) ' ' ' 'Pa</span>