Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
города
const n = 5; m = 7; k = 3; var i, u, v, c : integer; d : array [1..n] of integer; begin for i := 1 to n do d[i] := 0; for i := 1 to m do begin read (u, v); d[u] := d[u] + 1; d[v] := d[v] + 1; end; c := 0; for i := 1 to n do if d[i] >= k then c := c + 1; writeln (c); end.
run
|
edit
|
history
|
help
0
dz_lesson_17
test 1 avant que theo huart etaigne mon ordi
lala
1
test02
1
test29
tekl
Trke
practica 2 ejercicio 2