ВЫВОД РЕЗУЛЬТАТОВ В ВИДЕ ТАБЛИЦЫ

[изо]

Можно сделать так, чтобы выводились в таблице только те x*y, которые при делении на 9 давали остаток равный 6. Причем надо чтобы оставались пустые ячейки таблицы, где указанный остаток не равен 6.

const
n = 5;
m = 10;

var
a: array[1..n, 1..m] of integer;
i, j, k: byte;
x, y: integer;

begin
writeln;
write(' |');
for j := 1 to m do
write(j:6, '|');
writeln;
write('---+');
for k := 1 to m do
write('------+');
writeln;
for i := 1 to n do
begin
case i of
1..99: Write(i:3, '|');
100..999: Write(i, '|');
end;
for j := 1 to m do
begin
x := 2 * i + 1;
y := 2 * j + 1;
a[i, j] := x * y;
Write(a[i, j]:6, '|');
end;
Writeln;
write('---+');
for k := 1 to m do
write('------+');
writeln;
end;
Readln
end.



Быстрый ответ