Информатика

Самуил

12 декабря, 20:40

Скажите, почему программа не видит 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.