Предмет: Информатика,
автор: archebaler
Дата некоторого дня определяется двумя натуральными числами: m(порядковый номер месяца) и n(число). По заданным m и n определить дату предыдущего дня (принять, что m и n не определяют 1 января).
Ответы
Автор ответа:
4
const
mont: array [1..12] of integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
var
m, n: integer;
begin
write('m = ');
readln(m);
write('n = ');
readln(n);
if ((m=1) and (n=1)) or (m<1) or (n<1) or (m>12) or (n>mont[m]) then
writeln('Неопределенная дата')
else
if n=1 then
begin
m:=m-1;
n:=mont[m];
writeln(n, '-ое число ', m, '-ый месяц')
end
else
begin
n:=n-1;
writeln(n, '-ое число ', m, '-ый месяц')
end;
end.
mont: array [1..12] of integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
var
m, n: integer;
begin
write('m = ');
readln(m);
write('n = ');
readln(n);
if ((m=1) and (n=1)) or (m<1) or (n<1) or (m>12) or (n>mont[m]) then
writeln('Неопределенная дата')
else
if n=1 then
begin
m:=m-1;
n:=mont[m];
writeln(n, '-ое число ', m, '-ый месяц')
end
else
begin
n:=n-1;
writeln(n, '-ое число ', m, '-ый месяц')
end;
end.
Похожие вопросы
Предмет: Русский язык,
автор: mamaebar
Предмет: Русский язык,
автор: terrorist5
Предмет: Русский язык,
автор: MonsterDeveloper
Предмет: Немецкий язык,
автор: nastyashimpfpom
Предмет: Английский язык,
автор: keropjan88