Question

Впаскале вывести на экран символы: а) z z z z б) z y x b a в) 1 0 0 0 0 y y y y z y x b 0 2 0 0 0 x x x x 0 0 3 0 0 z y a a a a z 0 0 0 0 9

Answer 1

{Задание а}

var
  i:integer;
begin
  for i := 90 downto 65 do
    writeln(chr(i), ' ', chr(i), ' ', chr(i), ' ', chr(i));
end.

{Задание б}

var
  i, j:integer;
begin
  for i := 90 downto 65 do
  begin
    for j := 90 downto 65 + 90 - i do
      write(chr(j), ' ');
    writeln;
  end;
end.

{Задание в}

var
  i, j:integer;
begin
  for i := 1 to 9 do
  begin
    for j := 1 to 9 do
      if i = j then
        write(i, ' ')
      else
        write('0 ');
    writeln;
  end;
end.