Var fir, sec, i: integer; begin for i:=-500 to 600 do begin if (i>0) and (i mod 7 = 0) then fir:=fir+1; if (i<0) and (i mod 3 = 0) and (i mod 2 <> 0) then sec:=sec+i; end; writeln('Количество кратных 7 положительных чисел: ', fir); writeln('Сумма кратных 3 нечетных отрицательных чисел: ', sec); end.
В общем случае, трассировка - один из отладки программ врукопашную: состояние программы контролируется на определённом отрезке времени её выполнения путём анализа значений переменных. трассировка в том или ином виде при отладке программ сложнее школьного дз практически неизбежна. в простейшем случае, трассировка - вывод значений переменных на экран (например, в окно консоли) , либо расчёт их на бумажке для каждого шага. в более продвинутом варианте используются точки останова, окно наблюдения, выполнение по шагам и, если есть, контекстный интерпретатор выражений. есть также специальная "трассирующая консоль" - интерфейс вывода информации из программы в отладчик, если таковой присутствует. почти любой современный отладчик показывает состояние програмm при её останове, что делает трассировку процессом легко доступным
begin
for i:=-500 to 600 do
begin
if (i>0) and (i mod 7 = 0) then fir:=fir+1;
if (i<0) and (i mod 3 = 0) and (i mod 2 <> 0) then sec:=sec+i;
end;
writeln('Количество кратных 7 положительных чисел: ', fir);
writeln('Сумма кратных 3 нечетных отрицательных чисел: ', sec);
end.