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