Решения задач acmp.ru
Главная
Вход
Регистрация
Воскресенье, 20.09.2020, 19:19Приветствую Вас Гость | RSS
Меню сайта

Категории раздела
Pascal [121]
C++ [76]

Поиск

Мини-чат
200

Легкий заработок!

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа

Главная » Файлы » Pascal

0124 Светофорчики

Скачать файл можно после просмотра рекламы:

05.06.2012, 02:44
var
   a:array[1..100,1..100] of byte;
   n,m,i,j,g: integer;
   f: text;

begin
     for i:=1 to 100 do fillchar(a,0,100);

     assign(f,'input.txt');
     reset(f);
     readln(f,n,m);
     for g:=1 to m do begin
         readln(f,i,j);
         a[i,j]:=1;
         a[j,i]:=1;
     end;
     close(f);

     assign(f,'output.txt');
     rewrite(f);
     for i:=1 to n do begin
         g:=0;
         for j:=1 to n do
             if a[i,j]=1 then g:=g+1;
         write(f,g,' ');
     end;
     close(f);
end. 
Категория: Pascal | Добавил: shum
Просмотров: 2564 | Загрузок: 2
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Это интересно!


Copyright MyCorp © 2020