Вывести строчные английские буковкы в столбик попорядку,с указанием их десятичных кодов

Вывести строчные английские буковкы в столбик подряд,с указанием их десятичных кодов и строчных значений. Напишите три варианта программы с внедрением разных типов циклов. Используйте функции для работы с порядковыми и символьным типами данных.
P.S. Pascal

Задать свой вопрос
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 ilt;=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 igt;Ord('z');
end.



Никита
Программа обязана быть единичной а так же обязаны выводиться прописные значения буквю
Кирилл Чернолусский
Не соглашусь. Читаем условия: "Напишите три варианта программки" т.е. программ обязано быть 3, а не одна "единичная". И вновь же в условии обозначено "строчные буквы", а не строчные.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт