Напишите программу,которая получает день,номер - вопрос №2384851 от aktan012013 29.09.2021 07:53

Question

Информатика: Напишите программу,которая получает день,номер месяца и выводит кол-во дней,оставшихся до нового !

aktan012013 · Answer

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; ...