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
Menezes
Letícia
Opdracht_2
1
solar sysmtem 6 (with random mass m1)
practica 1 ejercicio 2
buscar_numero_V2_divisible_5
Пиріжки
НОД не по Евклиду и без массива
y