Question

СРОЧНОООО что не так с программой Pascal? задание: ввести номер месяца и номер дня, вывести число дней, оставшихся до Нового года. var m,d,k,i:integer; begin writeln('Введите номер месяца'); readln(m); writeln('Введите день'); readln(d); case m of 2: d:=28; 4,6,9,11: d:=30; 1,3,5,7,8,10,12: d:=31; end; for i:=1 to m-1 do k:=k+d; k:=365-k-d; writeln('До Нового года осталось ' ,k,' дней '); end.

Answer 1

var

 m, d, k, i, tmp: integer;

begin

 writeln('Введите номер месяца');

 readln(m);

 writeln('Введите день');

 readln(d);  

 for i := 1 to m - 1 do  

 begin

   case i of  

     2: tmp := 28;  

     4, 6, 9, 11: tmp := 30;  

     1, 3, 5, 7, 8, 10, 12: tmp := 31;  

   end;

   k := k + tmp;

 end;

 k := 365 - k - d;

 writeln('До Нового года осталось ', k, ' дней ');

end.