Вывести строчные английские буквы в столбик подряд,с указанием их десятичных кодов и прописных значений. Напишите три варианта программы с использованием разных типов циклов. Используйте функции для работы с порядковыми и символьным типами данных.
P.S. Pascal
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
