Сосчитать количество дорог - 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 0
0 1 0 0 0
0 1 0 0 0
0 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.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4 из 5
Похожие ответы