Убрать это предупреждение невозможно.
PascalABC.NET 3.2 - это современная версия языка, а практически
в любом современном языке программирования параметр цикла описывается в
заголовке цикла (и тем самым локализуется в этом цикле).
По утверждению разработчиков (ЮФУ), через какое-то время вариант с использованием в качестве параметра цикла внешних переменных вообще будет запрещен.
Var i, k,a1,a2,a3,b1,b2,b3: integer;
k:=0;
for i:=100000 to 999999 do
begin
a1:=i mod 100000;
a2:=i/10 mod 10000 ;
a3:=i/100 mod 1000;
b1:=i/1000 mod 100;
b2:=i/10000 mod 10;
b3:=i/100000 mod 1;
if ((a1+a2+a3=13) and (b1+b2+b3=13))
k:= k+1;
Задача
Дано число. Найти сумму и произведение его цифр.
Решение
Описание переменных:
n – число;
sum – сумма цифр;
mult – произведение цифр.
Алгоритм решения задачи:
<span>sum присвоить ноль.mult присвоить единицу (при умножении на ноль результат будет нулевым).<span>Пока n больше нуля <span>найти остаток от деления n на 10 (те. последнюю цифру числа), добавить его к сумме и увеличить произведение;избавиться от последнего разряда числа n путем деления нацело на число 10.</span></span></span>