Дополнить нужно небольшое условие в задачу

[PascalABC]

Есть задача:

program Z9C;
uses crt;
var d,m:integer;
a:string;
begin
Write('Введите число: '); read(d);
Write('Введите месяц: '); read(m);
case m of
1:a:='Января';
2:a:='Февраля';
3:a:='Марта';
4:a:='Апреля';
5:a:='Мая';
6:a:='Июня';
7:a:='Июля';
8:a:='Августа';
9:a:='Сентября';
10:a:='Октября';
11:a:='Ноября';
12:a:='Декабря';
end;
if (d<1) or (d>31) or (m<1) or (m>12) then write('Идите в первый класс и учите календарь') else
Writeln('Сегодня ', d,' ',a);
Writeln('Завтра будет ', d+1,' ',a);
end.

Дополнить нужно что в феврале не может быть 30 и 31,
Нужно учитывать количество дней в каждом месяце, чтобы например вводишь 31 октября, а оно тебе выдало 1 ноября (вместо 32 октября)

[Abstraction]

Во-первых, а где, простите, год? У нас в разные годы немного разный календарь, вообще-то.

Во-вторых, где заполняете a, там и заполняйте переменную maxDays. При выводе дня будет отдельная проверка на d=maxDays.

[PascalABC]

Abstraction
Забыл сказать что за пример взят не високосный год

[PascalABC]

Доперло:

Program case9;
uses crt;
var d,m:integer;
begin
Write ('Введите число: '); read (d);
Write ('Введите месяц: ');read (m);
if (m>12) or (d>31) or (m<1) or (d<1) then writeln('Че такое ввел?') else
case d of
1..27:begin d:=d+1; writeln('Завтра будет: ',d,' число ', m,' месяца'); end;
28: begin If m=2 then begin
inc(m);
writeln('Завтра будет: ',1,' число ', m,' месяца');
end;
end;
29: begin d:=d+1; writeln(d,' число ', m,' месяца');end;
30: begin If ((m=1) or (m=3) or (m=5) or (m=7) or (m=8) or(m=10) or (m=12)) then begin
inc(d);
writeln('Завтра будет: ',d,' число ', m,' месяца');
end else begin writeln('Завтра будет: ',1,' число ', m+1,' месяца');
end;
end;
31: begin If m=12 then begin Writeln('Завтра будет 1 число Нового года'); end;
If ((m=1) or (m=3) or (m=5) or (m=7) or (m=8) or (m=10)) then
begin
inc(m);
Write('Завтра будет: ', 1,' число ', m,' месяца');
end;
end;
end;
end.

[Serge_Bliznykov]

Ваше решение, мягко говоря, "не айс"!

посмотрите мой вариант решения аналогичной задачи в теме:
Определение даты через 2 дня

p.s. кстати, дополнить решение так, чтобы оно работало в любой год (учитывался факт високосности года) - дело буквально пары строчек кода.. ну, разумеется, при этом потребуется ввод не только числа и месяца, но и года..

[PascalABC]

Serge_Bliznykov
нужно через case

[Serge_Bliznykov]

нужно через case

да ради Бога! через case, так через case!


Да. маленькое замечание по коду.
Учтите, что Ваша программа не проверяет входные данные на корректность.
проверьте, что будет, если ввести 30 февраля или 31 февраля, или 31 апреля и т.д...