Вывести на экран латинский алфавит в прямом порядке от A до Z(красным цветом) и обратном порядке от Z до A (желтым цветом). Используйте цикл FOR
10-11 класс
|
uses crt;
type Tm=array [1..26] of char;
var a:Tm; i,n:integer;
begin
n:=65;
for i:=1 to 26 do
begin
textcolor(red);
a[i]:=(chr(n));
write(a[i],' ');
n:=n+1;
end;
writeln;
for i:=1 to 26 do
begin
textcolor(yellow);
a[i]:=(chr(123-i));
write(a[i],' ');
n:=n+1;
end;
end.
Другие вопросы из категории
матрица NxN. Программа должна осуществлять ввод и печать исходной матрицы и возможно, дополнительных данных, произвести необходимые действия и напечатать результаты. Подсчитать общее количество чисел, меньших заданного А, и чисел, больших заданного В среди элементов, находящихся ниже побочной диагонали.
а: =8
б: =а*4
z: =б-28
а: =5
б: = а*2
z: = а*b
с: =10
d:= c/2
z: =с-d
в: = 6
а: = в * в
z: =а-в
Читайте также
2.Вывести на экран 10 строк, содержащие символ *, причем количество * в каждой строке должно быть равно номеру строки.
3.Пользователем вводится 2 целых числа. Вывести на экран сумму положительных четных чисел, находящихся в границах диапазона, указанного пользователем.
4. В результате работы программы формируется массив, состоящий из 10 элементов и заполненный случайными числами от 0 до 100. Вывести на экран этот же массив в порядке возрастания.
5.Вводится строка, содержащая буквы и цифры разного регистра (т.е. строчные и прописные буквы). В результате работы программы на экран выводится строка следующего вида: цифры в порядке возрастания, строчные буквы по алфавиту, прописные буквы по алфавиту.
2) ввести с клавиатуры массив из n элементов вывести на экран максимальный четный элемент и минимальный нечетный элемент
Даны два символа (латинские буквы). Вывести их на экран в порядке возрастания по алфавиту.
вывести полученную матрицу на экран.