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

Дан файл, содержащий различные даты. Каждая дата — это
число, месяц и год. Найти год с наименьшим номером. Паскаль

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

Программа будет работать, если каждая дата записана в отдельной строке, причем число, месяц и год отделяются пробелом
var f:text;
    d,m,y,min:integer;
begin
Assign(f,date.txt);
Reset(f);
min:=9999;
while not eof(f) do
 begin
 readln(f,d,m,y);
 if y end;
Close(f);
writeln(min=,min);
end.