Вводится D(день) и M(месяц) невисокосного года. Какая дата была вчера? Паскаль

16 Сен 2022 в 19:41
104 +1
0
Ответы
1

program YesterdayDate;
var
D, M: integer;
begin
writeln('Enter the day and month of a non-leap year:');
readln(D, M);

if D = 1 then
begin
case M of
1, 3, 5, 7, 8, 10, 12: begin
D := 31;
M := M - 1;
end;
2: begin
D := 28;
M := 2;
end;
4, 6, 9, 11: begin
D := 30;
M := M - 1;
end;
end;
end
else
begin
D := D - 1;
end;

writeln('Yesterday''s date is: ', D, '.', M);
end.

16 Апр 2024 в 17:57
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир