Задание:
Даны два файла: input.txt и output.txt. В input.txt дана последовательность чисел: 1,6,11,16,21. В Output.txt отобразить размах ряда (т. Е разность междунаибольшим и наименьшим числом). Pascal
Решение:
A,b: byte; F: file of byte; begin assign (F,'input.txt'); reset (F); read (F,a); close (F); assign (F,'output.txt'); rewrite (F); write (F,b); close (F); end.
Знаете другой ответ?