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);

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4 из 5
Похожие ответы