Скажите, почему программа не видит 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.
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.
More Questions From This User See All
Answers & Comments
var
a:real;
t:text;
p: string;
Begin
p:= 'D:\Programms Olimpiada\input.txt';
assign(t,p);
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;
close(t);
End.