Перевод кода с Pascal на С++

@BofLin · Регистрация: 04.11.2021

Author24 — интернет-сервис помощи студентам

Pascal

for i:=1 to n do
for j:=1 to m do
begin
c:=a[i,j];
for l:=i to n do
for k:=j to m do
if (k<>j) and (c=a[i,j]) then 
begin
s:=l;
d:=k;
end;

@Volga_ · 21.12.2021, 17:05

Сообщение от BofLin

Перевод кода с Pascal на С++

Вот так ?

C++

    for (size_t i = 0; i < n; i++)
        for (size_t j = 0; j < m; j++)
        {
            c = a[i][j];
            for (size_t l = i; l < n; l++)
                for (size_t k = j; k < m; k++)
                    if (k != j && c == a[i][j])
                    {
                        s = l;
                        d = k;
                    }
        }

	21.12.2021, 17:05