Подскажите, пожалуйста, в чем ошибка программы? Паскаль ничего не пишет, но правильный ответ не выдает. program p1; var a,b:= integer; var f,g: File of integer; begin assign (f,'C:\In.txt'); reset (f); read (f,a); close (f); b:...
Подскажите, пожалуйста, в чем ошибка программы? Паскаль ничего не пишет, но правильный ответ не выдает.
program p1;
var a,b:= integer;
var f,g: File of integer;
begin
assign (f,'C:\In.txt');
reset (f);
read (f,a);
close (f);
b:= a+10;
assign (g,'C:\Out.txt');
rewrite (g);
write (g,b);
close (g);
end.
Гость
Ответ(ы) на вопрос:
Гостьзамените первую строку на следующую
var a,b: integer;
вторую строку замените на следующую
f,g:text;
чем вы записывали число в файл in.txt ?
по Вашей программе там должно быть число,
а Вы наверное записали в файл символьное представление числа
для символьного представления тип файла text
Не нашли ответ?
Похожие вопросы