No me lee los caracteres
Publicado por Florencia (1 intervención) el 17/10/2017 16:31:53
Hola, tengo que hacer este ejercicio para la uni, me da error y no entiendo por qué, si podrían ayudarme lo agradecería mucho.
este programa tendria que quedar, por ejemplo, si pongo 3 caracteres adt:
a bcde
d efghi
t uvwx
este programa tendria que quedar, por ejemplo, si pongo 3 caracteres adt:
a bcde
d efghi
t uvwx
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program am;
var fin,v:integer; l:char;
begin
write('Ingrese la cantidad de caracteres a leer: ');
read(fin);
writeln('Escriba una secuencia: ');
for v:= 1 to fin do begin
read(l);
write(l,' ');
write(succ(l));
write (succ(succ(l)));
write(succ(succ(succ(l))));
write(succ(succ(succ(succ(l)))));
end;
readln;
readln;
end.Valora esta pregunta
0