Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Сумма пар чисел кратных и некратных 11 с дельтой неэффективная
const n = 6; const d = 1; const kr = 11; var i, j, p : integer; var a : array [1..n] of integer = ( 1, 2, 11, 22, 3, 10); begin p := 0; for i := 1 to n - d do for j := i+d+1 to n do if a[i]*a[j] mod kr = 0 then p := p + 1; writeln (p); end.
run
|
edit
|
history
|
help
0
basketball_player_training
virtuelna ravan-preklapanje krugova
Поиск вершин в горах
Homework 1
Greetings
For8
ALEX LIMA NEPOMUCENO 600624764
aqzde
Hello World
Task1-3