type mismatch
Publicado por adrian (4 intervenciones) el 03/08/2011 03:44:51
hola me da error de type mismatch soy principiante y no entiendo lo q pasa
program ejercicio1a;
uses crt
var
I:integer;
F:integer;
texto:string;
begin
I:=1;
F:=0;
writeln('escriba palabras con f');
readln(texto);
while(I <= length(texto)) do
begin
if([I] = ' ')then
I:=I+1;
if([I] ='f') or ([I] ='F')then
F:=F+1;
I:=I+1;
if([I] <> ' ')then
I:=I+1;
end;
end.
en teoria tiene q contar las f
program ejercicio1a;
uses crt
var
I:integer;
F:integer;
texto:string;
begin
I:=1;
F:=0;
writeln('escriba palabras con f');
readln(texto);
while(I <= length(texto)) do
begin
if([I] = ' ')then
I:=I+1;
if([I] ='f') or ([I] ='F')then
F:=F+1;
I:=I+1;
if([I] <> ' ')then
I:=I+1;
end;
end.
en teoria tiene q contar las f
Valora esta pregunta
0