Дан файл, содержащий различные даты. Каждая дата - это

число, месяц и год. Найти год с наименьшим номером. Паскаль

Question

Информатика

Харлам

13 мая, 14:35

Дан файл, содержащий различные даты. Каждая дата - это

число, месяц и год. Найти год с наименьшим номером. Паскаль

+1

Ответы (1)

Знаете ответ на вопрос?

Тоша · Answer 1

Программа будет работать, если каждая дата записана в отдельной строке, причем число, месяц и год отделяются пробелом

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.

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

Дан файл, содержащий различные даты. Каждая дата - это

число, месяц и год. Найти год с наименьшим номером. Паскаль