Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  Codidos ascii
Language: PASCAL
Code:
program Codigos;
var
  i: char;
begin
Clrscr;
  writeln('**CODIGO ASCII**');
  i:= chr(65);
  While (i<= chr(70)) do
  Begin
  writeLn(i);
  i:=succ(i);
  End;
  writeLn('**ADIOS**');
  ReadLn;
End.          
          
Comments: