АШ
Александр Шеметов
составить программу в турбо паскале, которая по номеру дня в году выводит число и месяц в общепринятой форме
!срочно нужно! пожалуйста! только ее сказали решать нужно с массивами (((
!срочно нужно! пожалуйста! только ее сказали решать нужно с массивами (((
Про массивы ни чего не знаю, но вообще примерно так
var
Year: Word;
Noday: Integer;
dt: TDateTime;
begin
Write('Введите год ');
Readln(Year);
Write('Введите номер дня ');
Readln(NoDay);
dt := EncodeDate(Year, 1, 1) + NoDay -1;
Writeln(dt);
end.