Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
Подсчёт двойных звёзд в строках и столбцах
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
Please
log in
to post a comment.
Test
Prosti brojevi praktikum nizovi
НОД всеми способами
mod/div
zadan 4
uuu
Huong11a2@
fff
suduko solver
Грицанова, стр. 26, Пример 1.7
Please log in to post a comment.