Форум программистов, компьютерный форум, киберфорум
alhaos
Войти
Регистрация
Восстановить пароль
Оценить эту запись

ЗАДАЧА №15 Дороги

Запись от alhaos размещена 28.10.2020 в 16:15
Обновил(-а) alhaos 28.10.2020 в 16:18

Красноярский краевой Дворец пионеров, (c)2006 - 2020

В галактике «Milky Way» на планете «Snowflake» есть N городов, некоторые из которых соединены дорогами. Император галактики «Milky Way» решил провести инвентаризацию дорог на планете «Snowflake». Но, как оказалось, он не силен в математике, поэтому он просит вас сосчитать количество дорог. Требуется написать программу, помогающую императору сосчитать количество дорог на планете «Snowflake».

Входные данные
В первой строке входного файла INPUT.TXT записано число N (0 ≤ N ≤ 100). В следующих N строках записано по N чисел, каждое из которых является единичкой или ноликом. Причем, если в позиции (i, j) квадратной матрицы стоит единичка, то i-ый и j-ый города соединены дорогами, а если нолик, то не соединены.

Выходные данные
В выходной файл OUTPUT.TXT необходимо вывести число, определяющее количество дорог на планете «Snowflake».

INPUT.TXTOUTPUT.TXT
153
 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 


PowerShell
1
2
3
4
5
6
7
class problem_015 {
    static solve ([String]$inputFileName, [string]$outputFileName){
        (gc $inputFileName | select -Skip 1).ToCharArray().Where({$_ -eq 0x31}).Count/2
    }
}
 
[problem_015]::solve('C:\PROBLEMS\015,\INPUT.TXT', 'C:\PROBLEMS\015\OUTPUT.TXT')
Размещено в Без категории
Просмотров 501 Комментарии 1
Всего комментариев 1
Комментарии
  1. Старый комментарий
    Ну если у советских мультипликаторов были высокотоксичные краски чтобы делать мультипликацию на грани, то что было у советских программистов? Хотя в то время могло быть все что угодно.
    Запись от alhaos размещена 28.10.2020 в 16:27 alhaos на форуме
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.