Run Code
|
API
|
Code Wall
|
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
Tugas2
считалочка02
Potenztabelle
practica 7 ejercicio 5
practica 11 ejercicio 1
2-3-4-digit
считалочка06
uuu
Ipis unazad ulancana lista
dad