Вывод букв английского алфавита на Pascal

Вывод букв английского алфавита.

var c: char;
 
begin
  for c := 'a' to 'z' do
    write(c,' ');
  writeln;  
  c := 'A';
  while c<='Z' do
  begin
    write(c,' ');
    c := succ(c);
  end;
end.



Просмотров: 2448
10.02.2015, 09:55 -

Категория: Статьи » Программирование » Pascal