palloco

Program hola; uses crt; const z=3; type letra=(A,B,C,D,E,F,G,H,I,K,L,M,N,O,P,Q,R,S,T,V,X); var s:string; i,j:integer; fin:text; fout:text; l:letra; begin assign(fin,'caesar.in'); assign(fout,'caesar.out'); reset(fin); rewrite(fout); read(fin,s); for...

Program caesar; uses crt; const z=3; var n1,n2:array [0..10] of char; a,b:integer; begin writeln('introduzca nombre'); readln(n1); b:=1; while [a:=ord(n)]>0 do begin b:=b+1; write (chr(a+z)); end; end. Este programa supuestamente se le introduce una...