Дан файл, содержащий различные даты. Каждая дата — это
число, месяц и год. Найти год с наименьшим номером. Паскаль
Ответы
Ответ дал:
0
Программа будет работать, если каждая дата записана в отдельной строке, причем число, месяц и год отделяются пробелом
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<min then min:=y;
end;
Close(f);
writeln('min=',min);
end.
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<min then min:=y;
end;
Close(f);
writeln('min=',min);
end.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад