Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
звёздное небо с подсчётом двойных звёзд
var density, star, c, two, i, j : integer; begin randomize; readln(density); // плотность звёзд c := 0; two := 0; for i := 1 to 80 do begin for j := 1 to 80 do begin star := random (density); if (star = 2) and (c > 0) then begin two += 1; c := 0 end; if star = 5 then write ('O') else if star = 2 then begin write ('*'); c := c + 1 end else write (' '); end; writeln; c := 0 end; writeln (80*80, ' ', two) end.
run
|
edit
|
history
|
help
0
Enkripsi
exVariant
NHATANH
buscar_numero_V2_divisible_5
Task 1
test28
mult_matrix.pas
Random_1
рекурсия двух функций
10