Var m,n,k:integer; begin readln(m,n,k); if m=n then writeln('m = n') else if m=k then writeln('m = k') else if n=k then writeln('n = k') else writeln('Равных значений нет'); end.
Алг нач цел Кол_во=256, логтаб Матрица[1:Кол_во] цел Число,j
Матрица[1]:=нет нц для Число от 2 до Кол_во Матрица[Число]:=да кц нц для Число от 2 до div(Кол_во,2) нц для j от 2 до div(Кол_во,Число) Матрица[Число*j]:=нет кц кц нц для Число от 1 до Кол_во если Матрица[Число]=да то вывод Число," " все кц кон
Тут зависит от задачи. Понятное дело речь идёт об преобразование в сторону уменьшения объема данных. Нужно отметить что для этой задачи большой объем информации нужно будет свертывать(объединять, группировать) по каким-то полям таблицы, а по каким то суммировать числовые значения. Вот эти две операции и определять манеру визуализации для достижения цели задачи. Само собой нужно будет решить какие данные не важны и будут в итоге отсеяны из визуализации. Так же если таблица имеет ссылочные поля, то можно задействовать метод графов, опять же с группированием однотипных элементов.
begin
readln(m,n,k);
if m=n then writeln('m = n')
else if m=k then writeln('m = k')
else if n=k then writeln('n = k')
else writeln('Равных значений нет');
end.
Пример:
8 5 8
m = k