Добрые люди составить программу по информатике сколько дней вы прожили по pascalabc нужно

242

362

Посмотреть ответы 2

Ответы на вопрос:

Диана19371

Информатика

4,6(20 оценок)

Var dd1,mm1,yyyy1,dd2,mm2,yyyy2: integer; ww: real; begin writeln('введи текущую дату "дд мм "'); readln(dd1,mm1,yyyy1); writeln('введи дату рождения "дд мм "'); readln(dd2,mm2,yyyy2); yyyy1: =(yyyy1-yyyy2); if mm2> mm1 then begin yyyy1: =yyyy1-1; mm1: =mm1+12; end; mm1: =mm1-mm2; if dd2> dd1 then begin mm1: =mm1-1; dd1: =dd1+30; end; dd1: =dd1-dd2; ww: =dd1+mm1*30.4368499+yyyy1*365.242199; writeln(round(ww)); end.