PABCSystem.pas(4774) : Ошибка времени выполнения: Файл не открыт на запись - PascalABC.NET
Формулировка задачи:
Число, которое одинаково читается слева направо и наоборот, называется палиндромом, напр., 3773. Возьмем произвольное число N (от 10 до 10000). Если оно не палиндром, добавим к нему число, состоящее из тех же цифр, но записанных в обратном порядке. Будем повторять эту операцию, пока не получим палиндром (если это возможно). Напр., N = 49, 49 94 = 143, 143 341 = 484. Напишите программу, которая бы определяла, можно из заданного числа N получить палиндром, и если возможно, то за какое минимальное количество добавлений. Если меньше, чем за 100 добавлений это сделать невозможно, вывести на экран -1.
вот сделал что смог но выдаёт ошибку
PABCSystem.pas(4774) : Ошибка времени выполнения: Файл не открыт на запись
и выделяет красным в PABCSystem.pas строку if val = nil then
вот сама программа
вот ещё
выводит в окне вывода
Ошибка времени выполнения: System.IO.IOException: Файл не открыт на запись
Стек:
at PABCSystem.PABCSystem.write(Text f, Object val) in D:\программы\PascalABC.NET\LibSource\PABCSystem.pas:line 4774
at PABCSystem.PABCSystem.writeln(Text f, Object val) in D:\программы\PascalABC.NET\LibSource\PABCSystem.pas:line 4807
at dobavlenie.dobavlenie.$Main() in C:\PABCWork.NET\Добавление\Program3.pas:line 34
at Program3.Program.Main()
Решение задачи: «PABCSystem.pas(4774) : Ошибка времени выполнения: Файл не открыт на запись»
textual
Листинг программы
assign(f1,'imput.txt'); assign(f2,'output.txt'); reset(f1); rewrite(f2); // После добавления этой строки нет никакой ошибки read(f1,n); close(f1);
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д