2048 в байт 2048Кбайт
12288 бит 12288 Кбайт
8000 бит 1000 байт
var
P:array[2..100000] of boolean;
i, n, pr:integer;
flag:boolean;
begin
write('max = ');
readln(n);
for i := 2 to n do
P[i] := true;
pr := 2;
flag := true;
while flag do
begin
i := 2 * pr;
while i <= n do
begin
P[i] := false;
i := i + pr;
end;
flag := false;
for i := pr + 1 to n do
if P[i] then
begin
pr := i;
flag := true;
break;
end;
end;
for i := 10 to n do
if P[i] then
writeln(i);
readln;
end.
Даны числа: 188, 193, 198, 203, 208, 213, 218, 223, 228. Впишите их в клетки квадрата так, чтобы по всем строкам, столбцам и дву
MyxaBezYxa [149]
Девять чисел, значит их надо вписать в квадрат три на три клетки.
В нём три строки.
И сумма в каждой строке одинаковая.
Если мы сложим все три строки, ты получим тройную такую сумму.
То есть, чтобы найти ответ, достаточно сложить все девять чисел и разделить сумму на три.
(188+193+198+203+208+213+218+223+228) / 3 = 1872 / 3 = 624