Viết chương trình pascal để xuất các ký tự từ A đến Z

2 câu trả lời

program oken;
uses crt;
var i: byte;
begin
    clrscr;
    write('Day ki tu: ');
    for i:=65 to 90 do
        write(char(i),' ');
    readln;
end.

program ct;

uses crt;

var A:array['A'..'Z'] of string;

      i:integer;

begin clrscr;

   writeln('Cac ki tu tu A den Z la: ');

   for i:='A' to 'Z' do

     write(A[i]);

readln;

end.

Học tốt!