Сосчитать количество дорог - Turbo Pascal
Формулировка задачи:
В галактике «Milky Way» на планете «Snowflake» есть N городов, некоторые из которых соединены дорогами. Император галактики «Milky Way» решил провести инвентаризацию дорог на планете «Snowflake». Но, как оказалось, он не силен в математике, поэтому он просит вас сосчитать количество дорог. Требуется написать программу, помогающую императору сосчитать количество дорог на планете «Snowflake».
Входные данные
В первой строке входного файла INPUT.TXT записано число N (0 •N •100). В следующих N строках записано по N чисел, каждое из которых является единичкой или ноликом. Причем, если в позиции (i, j) квадратной матрицы стоит единичка, то i-ый и j-ый города соединены дорогами, а если нолик, то не соединены.
Выходные данные
В выходной файл OUTPUT.TXT необходимо вывести число, определяющее количество дорог на планете «Snowflake».
Пример
INPUT.TXT | OUTPUT.TXT |
5 0 1 0 0 0 1 0 1 1 00 1 0 0 0 0 1 0 0 00 0 0 0 0
|
3 |
Решение задачи: «Сосчитать количество дорог»
textual
Листинг программы
var f: text; i, j, n, t, w: integer; begin w := 0; assign(f, 'INPUT.TXT'); reset(f); readln(f, n); readln(f); for i := 2 to n do begin for j := 2 to i do begin read(f, t); w := w + t end; readln(f) end; close(f); assign(f, 'OUTPUT.TXT'); rewrite(f); writeln(f, w); close(f) end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д