Вопрос по информатике:
Переведите код из Phyton в Pascal
n,m=input().strip().split()
n=int(n)
m=int(m)
x=[0]*n
print(x)
z=[0]*n
for i in range(m):
a,b=input().strip().split()
a=int(a)-1
b=int(b)-1
x[a]-=1
x[b]+=1
for i in range(n):
z[i+x[i]]=i
y=''
for i in z:
y+=str(i+1)+ ' '
print(y)
- 06.08.2017 09:59
- Информатика
- remove_red_eye 11859
- thumb_up 13
Ответы и объяснения 1
// Внимание! Если программа не работает, обновите версию!
begin
var (n,m):=ReadInteger2;
var x:=ArrFill(n,0);
x.Println;
var z:=Copy(x);
for var i:=0 to m-1 do begin
var (a,b):=ReadInteger2;
a-=1; b-=1; x[a]-=1; x[b]+=1;
end;
for var i:=0 to n-1 do z[i+x[i]]:=i;
var y:='';
foreach var i in z do y+=(i+1)+' ';
Writeln(y)
end.
- 07.08.2017 08:54
- thumb_up 1
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.