В клеточку, в линейку, в кружочек(да, такие есть)
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.
Когда я собрал своего робота, я задумался какие функции он должен выполнять? Сразу пришла идея заставить его делать по дому:убираться, мыть посуду, пылесосить, но это было скучно и однообразно. Тогда я решил, что пускай он будет помогать родине, как стоматолог - имплантолог , пусть помогает обрести людям красивую голливудскую улыбку.
Один первый , три последний. я думаю так. Поставьте лучшее решение.
25+27 узнали сколько человек ходит на языки посчитав два раза кто ходит и туда и туда
25+27-18 посчитали сколько человек в классе