Помогите плиз Перенаправление Прочитайте число n из файла input.txt и выведите его в файл output.txt (-32768 меньше n меньше 32767)! Входные данные: В единственной строке входного файла input.txt записано число от -32767 д...
Помогите плиз
Перенаправление
Прочитайте число n из файла input.txt и выведите его в файл output.txt
(-32768 < n < 32767)!
Входные данные:
В единственной строке входного файла input.txt записано число от -32767 до 32766!
Выходные данные:
В единственную строку выходного файла output.txt нужно вывести в точности то же число, которое задано во входном файле!
Примеры:
№ input.txt output.txt
1 3 3
2 0 0
3 32766 32766
4 -32761 -32761
Гость
Ответ(ы) на вопрос:
Гостьprogram File;
var
f1,f2:text;
i: integer;
begin
AssignFile(F,'input.txt'); Reset(F); Read(F,i);
Close(F);
AssignFile(f1,'output.txt');
Rewrite(f1);
Write(f1,i); Close(f1);
end.
Не нашли ответ?
Похожие вопросы