Дата некоторого дня характеризуется двумя натуральными числами: m (по- рядковый номер месяца) и n (число). По заданным n и m определить:

а) дату предыдущего дня (принять, что n и m не характеризуют 1 января);
б) дату следующего дня (принять, что n и m не характеризуют 31 декабря).
Решите на С++ ,с свитч кейс
​

1)var n,k: integer; begin   write('число:   ');   readln(n);   k: =0;   repeat     k: =k*10+n mod 10;     n: =n div 10;   until n=0;   writeln('новое число:   ',k); end. 2) var n,k,m: integer; begin  write('двоичное число:   ');   readln(n);   k: =1;   m: =0;   repeat    m: =m+k*(n mod 10);     n: =n div 10;     k: =k*2;   until n=0;   writeln('десятичное число:   ',m); end.

Var
a:integer;
begin
write('Введите время=');
readln(a);
if a=0 then begin
write('Ночь');
end;
if a=1 then begin
write('Ночь');
end;
if a=2 then begin
write('Ночь');
end;
if a=3 then begin
write('Ночь');
end;
if a=4 then begin
write('Ночь');
end;
if a=5 then begin
write('Утро');
end;
if a=6 then begin
write('Утро');
end;
if a=7 then begin
write('Утро');
end;
if a=8 then begin
write('Утро');
end;
if a=9 then begin
write('Утро');
end;
if a=10 then begin
write('Утро');
end;
if a=11 then begin
write('День');
end;
if a=12 then begin
write('День');
end;
if a=13 then begin
write('День');
end;
if a=14 then begin
write('День');
end;
if a=15 then begin
write('День');
end;
if a=16 then begin
write('День');
end;
if a=17 then begin
write('Вечер');
end;
if a=18 then begin
write('Вечер');
end;
if a=19 then begin
write('Вечер');
end;
if a=20 then begin
write('Вечер');
end;
if a=21 then begin
write('Вечер');
end;
if a=22 then begin
write('Ночь');
end;
if a=23 then begin
write('Ночь');
end;
if a=24 then begin
write('Ночь');
end;
end.