Question

Вывести строчные буквы в столбик подряд,с указанием их десятичных кодов и прописных значений. напишите три варианта программы с использованием разных типов циклов. используйте функции для работы с порядковыми и символьным типами данных. p.s. pascal

Answer 1

1)
Var i : Byte;
Begin
  For i:=Ord('a') to Ord('z') do Writeln(Chr(i),' ',i);
end.

2)
Var i : Byte;
Begin
  i:=Ord('a');
  While i<=Ord('z') do
  Begin
    Writeln(Chr(i),' ',i);
    Inc(i);
  end;
end.

3)
Var i : Byte;
Begin
  i:=Ord('a');
  Repeat
    Writeln(Chr(i),' ',i);
    Inc(i);
  Until i>Ord('z');
end.