Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Подсчёт двойных звёзд в строках и столбцах
const n = 20; var star, i, j, k, den, c, two : integer; var stars : array [1..n] of char; begin randomize; for i := 1 to n do stars[i] := ' '; two := 0; den := 10; for i := 1 to n do begin for j := 1 to n do begin star := random (den); if ( star = 2 ) and (c <> 0 ) then two += 1; if star = 2 then begin write ('*'); c += 1; if stars[j] = '*' then two += 1; stars[j] := '*'; end else begin write (' '); c := 0; stars[j] := ' '; end; end; writeln; end; writeln (two); end.
run
|
edit
|
history
|
help
0
Подсчёт количества единичных битов в десятичном числе от 0 до 15
VINICIUS ELIAS SILVEIRA 600625519
codigo
IT101 - W4_1
Huong11a2@
Tri 1.0
checks if a number is exceptional
contar_divisores_de_N
SmallQuest
practica 9 ejercicio 8