Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
1januar2018
//fpc 3.0.0 program HelloWorld; const maxduz=100; type niz=array[1..maxduz]of integer; var an,bn:integer; niza,nizb:niz; function citajniz(var n:integer; var Niz:niz):boolean; var i:integer; begin; citajniz:=true; read(n); if (n>0) and (n<=maxduz) then begin for i:=1 to n do read(Niz[i]); end else citajniz:=false; end; function anagrami(na,nb:integer; a,b:niz): boolean; var c:array[0..9]of integer; i:integer; begin if na<>nb then anagrami:=false else begin for i:=0 to 9 do c[i]:=0; for i:=1 to na do begin c[a[i]]:=c[a[i]]+1; c[b[i]]:=c[b[i]]-1; end; anagrami:=true; i:=0; while (i<=9) and anagrami do if c[i]<>0 then anagrami:=false else i:=i+1; end; end; begin if citajniz(an,niza) and citajniz(bn,nizb) then write(anagrami(an,bn,niza,nizb)) else write('Greska'); end.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
TanTai11A2@
x=2;n=3
Naloga 5: 9.2.2011
kk
Task
Урок 3 задача 1 (1484) повышенная сложность.
test29
f1
test30
Подсчёт двойных звёзд в строках и столбцах
Please log in to post a comment.