Question

Скажите, почему программа не видит input? Program objective1; var a:real; t:text; Begin assign(t,'input.txt'); reset(t); read(t,a); close(t); assign(t,'output.txt'); rewrite(t); a:= 100/(a*2); if frac(a)=0 then writeln(t,a) else begin a:= int(a); a:=a + 1; writeln(t,a); end; write(t,a); close(t); End.

Answer 1

Пропишите полный путь к файлу input.txt