Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Вычислите и выведите на экран примерное число прожитых человеком дней (без учѐта
високосных лет) , если в году 365 дней, а год рождения и текущий год запрашиваются у
пользователя вашей программы. Паскаль.помогите срочно!!!!!!!!!!!!!!!!!!!!!!!!

Ответ оставил Гость

Program zadanie;
Var a,b:integer;
Begin 
Writeln(Введите год рождения); 
Read(a); 
Writeln(Введите текущий год); 
Readln(b); 
If b>a Then
begin
a:=(b-a)*365;
Writeln(Примерное число прожитых дней=,a);
end
Else If a>b Then Writeln(Не правильно указаны год рождения и текущий год) 
Else
begin
a:=a*365; 
Writeln(Примерное число прожитых дней=,a);
end;
End.