Вывести на экран латинский алфавит в прямом порядке от A до Z(красным цветом) и обратном порядке от Z до A (желтым цветом). Используйте цикл FOR
Вывести на экран латинский алфавит в прямом порядке от A до Z(красным цветом) и обратном порядке от Z до A (желтым цветом). Используйте цикл FOR
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы