Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
digits_count
program HelloWorld; const n = 100; const k = 21; var i, temp : integer; a : array [1..n] of integer; num : array [0..k-1] of integer; begin if n < k then begin writeln (n, '<', k ); halt; end; for i := 0 to k-1 do num[i] := 0; randomize; for i := 1 to n do begin a[i] := random (k); if i mod 10 = 0 then begin write (a[i]:2, ' '); writeln; end else write (a[i]:2, ' '); temp := a[i] mod k; num[temp] := num[temp] + 1; end; writeln; for i := 0 to k-1 do if (i mod 10 = 0) and (i <> 0) then begin write (num[i]:2, ' '); writeln; end else write (num[i]:2, ' '); writeln; end.
run
|
edit
|
history
|
help
0
https://m.facebook.com/akansha.panchal.906?refid=12&ref=opera_speed_dial
practica 7 ejercicio B3
BubbleSort (standaard)
For10
TanTai11A2@
Huong11a2@
virtuelna ravan-preklapanje krugova
число pi разными способами
Сумма пар чисел кратных и некратных 11
НОД по моему