otro programita
Publicado por palloco (3 intervenciones) el 21/08/2001 19:22:48
program euclid;
uses crt;
var a,b:integer;
in:file of integer;
out:file of integer;
begin
assign(in,'euclid.in');
assign(out,'euclid.out');
reset(in);
rewrite(out);
read(in,a);
read(in,b);
while(a<>b)do
if(a>b)
then begin a:=a-b; end
else begin b:=b-a; end;
write(out,a);
close(in); close(out);
end.
En la linea in:file of integer; me da el error begin expected but in found. Me da el mismo error si en vez de poner file of integer pongo text. A qué se debe esto?
Gracias
uses crt;
var a,b:integer;
in:file of integer;
out:file of integer;
begin
assign(in,'euclid.in');
assign(out,'euclid.out');
reset(in);
rewrite(out);
read(in,a);
read(in,b);
while(a<>b)do
if(a>b)
then begin a:=a-b; end
else begin b:=b-a; end;
write(out,a);
close(in); close(out);
end.
En la linea in:file of integer; me da el error begin expected but in found. Me da el mismo error si en vez de poner file of integer pongo text. A qué se debe esto?
Gracias
Valora esta pregunta


0