Допустим какое то число
a:=random(200)+50;
вот так, пояснение: рандом 200 дает значение от 0 до 200, а так как +50 то получаем от 50 до 250
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function IsPrime(n:integer):boolean;
begin
if n<4 then Result:=True
else begin
var found:=(n mod 2=0);
var p:=3;
while (not found) and (sqr(p)<=n) do
begin found:=(n mod p=0); p+=2 end;
Result:=not found
end
end;
begin
var a:=ArrRandom(ReadInteger('n='),0,100); a.Println;
var primes:=a.Where(x->IsPrime(x)).ToArray;
primes.Sort;
primes.Println
end.
<u>Пример</u>
n= 17
33 23 56 58 32 2 5 72 68 59 89 30 17 40 44 21 23
2 5 17 23 23 59 89
1)изображение
2) Текстовой документ
3) Видеозапись
4) видеозапись
5) Текстовый документ
Я думаю что тетради 5 класса лежат в 3 пачке
Наибольшая площадь 25. Потому что всего ромашек 28, нам нужно, что бы они были в одном квадратике. из 28 корень не извлекается, следовательно ищем число меньше 28, из которого он извлечется. это число 25! 5 строчек, 5 столбцов)