Напишите программу, которая выведет на экран значение true или false, в зависимости от того, является ли введенное число х четырехзначным или нет. сделайте
1. (число <20) и не ( число нечетное) (9 <20) и не (9 нечетное) ⇒ Истина и не Истина ⇒ Ложь (18 <20) и не (18 нечетное) ⇒ Истина и не Ложь ⇒ Истина (35 <20) и не (35 нечетное) ⇒ Ложь и не Истина ⇒ Ложь (48 <20) и не (48 нечетное) ⇒ Ложь и не Ложь ⇒ Ложь ответ: 2) 18
2. не (число >30) и ( число четное) или ( число меньше или равно 10) не (5 >30) и (5 четное) или (5 меньше или равно 10) ⇒ не Ложь и Ложь или Истина ⇒ Ложь или Истина ⇒ Истина не (9 >30) и (9 четное) или (9 меньше или равно 10) ⇒ не Ложь и Ложь или Истина ⇒ Ложь или Истина ⇒ Истина не (22 >30) и (22 четное) или (22 меньше или равно 10) ⇒ не Ложь и Истина или Ложь ⇒ Истина или Ложь ⇒ Истина не (40 >30) и (40 четное) или (40 меньше или равно 10) ⇒ не Истина и Истина или Ложь ⇒ Ложь или Ложь ⇒ Ложь ответ: 1) 5; 2) 9; 3) 22
3. ( число больше или равно 10) или ( число четное) или ( число меньше или равно 30) (7 больше или равно 10) или (7 четное) или (7 меньше или равно 30) ⇒ Ложь или Ложь или Истина ⇒ Истина (20 больше или равно 10) или (20 четное) или (20 меньше или равно 30) ⇒ Истина или Истина или Истина ⇒ Истина (27 больше или равно 10) или (27 четное) или (27 меньше или равно 30) ⇒ Истина или Ложь или Истина ⇒ Истина (35 больше или равно 10) или (35 четное) или (35 меньше или равно 30) ⇒ Истина или Ложь или Ложь ⇒ Истина ответ: для всех приведенных чисел результат высказывания - Истина
4. (число >30) или не (число четное) и (число меньше или равно 10) (5 >30) или не (5 четное) и (5 меньше или равно 10) ⇒ Ложь или не Ложь и Истина ⇒ Ложь или Истина ⇒ Истина (8 >30) или не (8 четное) и (8 меньше или равно 10) ⇒ Ложь или не Истина и Истина ⇒ Ложь или Ложь ⇒ Ложь (17 >30) или не (17 четное) и (17 меньше или равно 10) ⇒ Ложь или не Ложь и Ложь ⇒ Ложь или Ложь ⇒ Ложь (28 >30) или не (28 четное) и (28 меньше или равно 10) ⇒ Ложь или не Истина и Ложь ⇒ Ложь или Ложь ⇒ Ложь ответ: 2) 8 3) 17 4) 28
5. не (первая буква согласная) или ( последняя буква гласная) не (С согласная) или (А гласная) ⇒ не Истина или Истина ⇒ Истина не (С согласная) или (Н гласная) ⇒ не Истина или Ложь ⇒ Ложь не (А согласная) или (Т гласная) ⇒ не Ложь или Ложь ⇒ Истина не (А согласная) или (А гласная) ⇒ не Ложь или Истина ⇒ Истина ответ: 2) Слон
6. ( последняя буква согласная) или ( первая буква гласная) (А согласная) или (К гласная) ⇒ Ложь или Ложь ⇒ Ложь (К согласная) или (Б гласная) ⇒ Истина или Ложь ⇒ Истина (Л согласная) или (О гласная) ⇒ Истина или Истина ⇒ Истина (А согласная) или (О гласная) ⇒ Ложь или Истина ⇒ Истина ответ: 1) Коза
Var begin readln(n); if n=1 then begin writeln('1 месяц');writeln('кол-во дней');end; if n=2 then begin writeln('2 месяц');writeln('кол-во дней');end; if n=3 then begin writeln('3 месяц');writeln('кол-во дней');end; if n=4 then begin writeln('4 месяц');writeln('кол-во дней');end; if n=5 then begin writeln('5 месяц');writeln('кол-во дней');end; if n=6 then begin writeln('6 месяц');writeln('кол-во дней');end; if n=7 then begin writeln('7 месяц');writeln('кол-во дней');end; if n=8 then begin writeln('8 месяц');writeln('кол-во дней');end; И так до 12 раз... Я не уверен что тебе нужен такой монстр... В место к примеру 1 месяца пишешь январь...
procedure foo(n: integer; k: integer := 0);
begin
if n = 0 then Print(k = 4)
else foo(n div 10, k + 1)
end;
begin
var N := ReadInteger();
foo(N)
end.