/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/CheckedTasks/PT4/File48.pas
24 строки
526 B
miks1965
AdjacentGroup - sequence of array
23 окт 2017, 13:25
23 окт 2017, 13:25
674df68
Код
Авторство
О чём код?
// Пример решения задачи File48 из электронного задачника Programming Taskbook uses PT4; var f: array [1..4] of file of integer; begin Task('File48'); for var i:=1 to 4 do begin var s: string; read(s); Assign(f[i], s); if i < 4 then Reset(f[i]) else Rewrite(f[i]); end; while not Eof(f[1]) do for var i:=1 to 3 do begin var a: integer; read(f[i],a); write(f[4],a); end; for var i := 1 to 4 do Close(f[i]); end.