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
Задача №1516. Проверка на простоту (цикл while)
solar_system_yupiter
practica 7 ejercicio B10
s
nomer2
08 Ariketa WHILE
digits_count
Сумма пар чисел кратных и некратных 11
nombre_completo
Tangga angka