Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
звёздное небо с подсчётом двойных звёзд
var star, c, two, i, j : integer; begin randomize; c := 0; two := 0; for i := 1 to 80 do begin for j := 1 to 80 do begin star := random (10); 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
sandogh 1
practica 11 ejercicio 4
1 4 6
Бассейн-5
Program summa
Pi
procedure escribir caracter n veces
Задание 27 (окончательный вариант) эффект и неэффект
Сортировка массива цифр
Tri 1.0