Правила форума
Дана дата в виде день, месяц и год.
Проверить, является ли дата корректной.
Если дата корректная, то спросить у пользователя из какого в какой стиль перевести дату (старый-новый, новый-старый).
Вывести дату в соответствии с выбором пользователя.
то что сделал
Код
Program kalendareg_new_or_old;
Var d,m,g:longint;
new,old:boolean
e:boolean;
Begin
Writeln('VESTI DEN MES GOD:');
Readln(d,m,g);
Case m of
1,2,5,7,8,10,12:e:=(d>+1)and(d<=31);
4,6,9,11:e:=(d>=1)and(d<=30);
2:e:=(((g mod 400 = 0)OR((g mod 4 = 0)AND(g mod 100 <> 0)))and(d>=1)and(d<=29)
or(not(((g mod 400 = 0)OR(g mod 4 = 0)AND(g mod 100 <> 0)))and(d>=1)and(d<=28)));
else e:=False;
end;
{proverka}
writeln('kakoy stile you need ?');
writeln('dla novogo stila nagmi 1');
writeln('dla starogo stila nagmi 2');
readln (new,old);
Var d,m,g:longint;
new,old:boolean
e:boolean;
Begin
Writeln('VESTI DEN MES GOD:');
Readln(d,m,g);
Case m of
1,2,5,7,8,10,12:e:=(d>+1)and(d<=31);
4,6,9,11:e:=(d>=1)and(d<=30);
2:e:=(((g mod 400 = 0)OR((g mod 4 = 0)AND(g mod 100 <> 0)))and(d>=1)and(d<=29)
or(not(((g mod 400 = 0)OR(g mod 4 = 0)AND(g mod 100 <> 0)))and(d>=1)and(d<=28)));
else e:=False;
end;
{proverka}
writeln('kakoy stile you need ?');
writeln('dla novogo stila nagmi 1');
writeln('dla starogo stila nagmi 2');
readln (new,old);
помогите закончить пллз
