Вывести на экран латинский алфавит в прямом порядке от a до z(красным цветом) и обратном порядке от z до a (желтым цветом). используйте цикл for

nusunusretp0ale8 nusunusretp0ale8    3   22.05.2019 06:00    3

Ответы
влад22771 влад22771  17.06.2020 08:17

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика