Const d: array [1..7] of string = ('Понедельник','Вторник','Среда','Четверг','Пятница','Суббота','Воскресенье'); var n: integer; begin write('Номер дня недели? '); readln(n); if (1 <= n) and (n <= 7) then writeln(d[n]) else writeln('Ошибка ввода'); end.
Не больше - значит, меньше или равно. Они все сказали правду. Среди них 0 брехунов, а это не больше 1, не больше 2, не больше 3 и не больше 4. Причем тот, кто сказал "Не больше 4" - сказал правду, их же всего 4. Если среди них есть один брехун, то опять-таки все сказали правду. Потому что один - это не больше одного. Получаем противоречие. Если среди них два брехуна, то соврал только один: который сказал "Не больше одного". Опять противоречие. Если брехунов трое, то соврали только двое, которые сказали "Не больше 1" и "Не больше 2".
Установить раствор циркуля равный заданному радиусу. Установить ножку циркуля в точку А, провести окружность. Установить ножку циркуля в точку В, провести окружность. Есть ли точки пересечения? Нет - искомой окружности не существует. Да - Устанавливаем ножку циркуля в точку пересечения, проводим окружность.
(Точек пересечения может быть две, тогда можно построить две окружности. Или окружности могут соприкасаться в одной точке, тогда искомая окружность будет одна.)
d: array [1..7] of string =
('Понедельник','Вторник','Среда','Четверг','Пятница','Суббота','Воскресенье');
var
n: integer;
begin
write('Номер дня недели? ');
readln(n);
if (1 <= n) and (n <= 7) then writeln(d[n]) else writeln('Ошибка ввода');
end.