Перевести с С++ на паскаль. #define _CRT_SECURE_NO_WARNINGS
#include
#include
#define SIZE 6
int main()
{
int a[SIZE][SIZE]; // матрица связей
int d[SIZE]; // минимальное расстояние
int v[SIZE]; // посещенные вершины
int temp, minindex, min;
int begin_index = 0;
system("chcp 1251");
system("cls");
// Инициализация матрицы связей
for (int i = 0; i 0)
{
temp = min + a[minindex][i];
if (temp < d[i])
{
d[i] = temp;
}
}
}
v[minindex] = 0;
}
} while (minindex < 10000);
// Вывод кратчайших расстояний до вершин
printf("\nКратчайшие расстояния до вершин: \n");
for (int i = 0; i = 0; i--)
printf("%3d ", ver[i]);
getchar(); getchar();
return 0;
}

216

221

Посмотреть ответы 1

Ответы на вопрос:

vipborisov200

Информатика

4,8(33 оценок)

Var i: integer; function summa (n: integer): integer; var sum: integer; begin sum: =0; while (n< > 0) do begin sum: =sum+(n mod 10); n: =n div 10; end; summa: =sum; end; begin for i: =100 to 999 do if (summa(i)=summa(i div 20)) then writeln (i); end.