Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

в паскале

Вывести на экран символы:

а) 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

Ответ оставил Гость

{Задание а}

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.