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
mulitp
Martix
Zadanie 3 б
practica 9 ejercicio 11
Squarepants
Определение стенки с максимальной высотой
Poukimone1 tg
Урок 3, задача 6 (1479). Без циклов
Random Numbers
TOHOP