Нкпишите программу которая в последовательности натуральных чисел определяет сумму всех чисел кратных 7 и оканчиващихся на 3

var n,i,s,a: integer;

begin

  readln(n);

  s:=0;

  for i:=1 to n do begin

    readln (a);

    if (a div 7 <> 0) and (a mod 10 = 3) then

      s:=s+a;

  end;

  writeln(s);

end.

Цикл с предусловием это такой цикл, в котором условие проверяется перед выполнением тела цикла.
А цикл с постусловием - на оборот, он сначала выполнит, а потом проверит условие и если условие true, то цикл завершится.

Цикл с постусловием, можно использовать в таких ситуациях, когда надо что-то сделать и если чего-то не хватает, то сделать еще раз. Напрмер отправить письмо на email, а если не отправилось, то повторить еще 3 раза. Сначала выполнится тело цикла, в котором находятся функции отправки письма и если отправка удачная, то сообщаем until() true. Иначе тело выполнится еще и еще и еще кучу раз, если мы не задали счетчик в теле цикла, как вариант...

Цикл с предусловием можно использовать, если надо проверять какое-то значение ПЕРЕД выполнением тела цикла и тебе не важно, должно ли оно хоть раз выполниться. Например запросить пароль у пользователя. Но если пользователь уже ввёл пароль, то зачем его запрашивать? Тут можно было бы использовать while

Тут зависит от задачи. Понятное дело речь идёт об преобразование в сторону уменьшения объема данных. Нужно отметить что для этой задачи большой объем информации нужно будет свертывать(объединять, группировать) по каким-то полям таблицы, а по каким то суммировать числовые значения. Вот эти две операции и определять манеру визуализации для достижения цели задачи. Само собой нужно будет решить какие данные не важны и будут в итоге отсеяны из визуализации.
Так же если таблица имеет ссылочные поля, то можно задействовать метод графов, опять же с группированием однотипных элементов.