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

September 2021 1 22 Report

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

Answers & Comments

Verified answer

Программа будет работать, если каждая дата записана в отдельной строке, причем число, месяц и год отделяются пробелом
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.

4 votes Thanks 2

Answers & Comments

Verified answer

podstroka var temp strsplitwherei gt icontainspodstr consolewrit

dana stroka podschitat samuyu dlinnuyu posledovatelnost podryad idushih bukv apr

visual basicnapishite programmuvychislyayushuyu po izvestnym znacheniyam domauskoreni

sortirovka elementov pervogo stolbca s pomoshyu pryamogo obmenaprogramma paskal

sortirovka polozhitelnyh elementov metodom pryamogo vybora programmapaskal

izobrazit na ekrane evm sleduyushij risunok postroenie graficheskih izobrazhenij v

1absxy writelnzz end kakuyu podprogrammy proceduru mozhno sdelat

dlya uchastiya v studencheskih sportivnyh sorevnovaniyah vydeleno iz pervoj gruppy 5

dana posledovatelnost celyh chisel zamechanie zadachi iz dannogo punkta reshit

perepishite programmu pod pascal using system namespace consoleapplication cla

рекомендуемые вопросы

Helpful Links

Helpful Social