Регистрация
yancenkostya
25.12.2022 01:59
Информатика
Есть ответ 👍

Постройте таблицу истинности для высказывания :
С и НЕ (А или В)

160
470
Посмотреть ответы 1

Ответы на вопрос:

danyazajtzev
danyazajtzev
4,6(72 оценок)
Var   d,m,i,all: integer; begin   read(d,m);   all: =0;   for i: =12 downto (m+1) do   begin   if i=12 then     all: =all+31;   if i=11 then     all: =all+30;   if i=10 then     all: =all+31;   if i=9 then     all: =all+30;   if i=8  then     all: =all+31;   if i=7 then     all: =all+31;   if i=6 then     all: =all+30;   if i=5  then     all: =all+31;   if i=4 then     all: =all+30;   if i=3  then     all: =all+31;   if i=2 then     all: =all+28;   if i=1 then     all: =all+31;   end;   if i=12 then     all: =all+31-d;   if i=11 then     all: =all+30-d;   if i=10 then     all: =all+31-d;   if i=9 then     all: =all+30-d;   if i=8  then     all: =all+31-d;   if i=7 then     all: =all+31-d;   if i=6 then     all: =all+30-d;   if i=5  then     all: =all+31-d;   if i=4 then     all: =all+30-d;   if i=3  then     all: =all+31-d;   if i=2 then     all: =all+28-d;   if i=1 then     all: =all+31-d;   writeln(all); end.

Популярно: Информатика