Const m=1000;
var
a:array[1..m] of integer;
n,i,p,k,j:integer;
begin
write('n = '); readln(n);
i:=0; p:=1;
while p<n do
begin
k:=0;
for j:=2 to round(sqrt(p)) do
if p mod j = 0 then k:=k+1;
if k=0 then begin i:=i+1; a[i]:=p; end;
p:=p+1;
end;
for j:=1 to i do write(a[j],' ');
writeln;
end.
Пример:
n = 100
1 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97
Первое закреплённое изображение было сделано в 1822 году
французом Жозефом Нисефором Ньепсом (Nicéphore Niepce), но оно не сохранилось
до наших дней. Поэтому первой в истории фотографией считается снимок «вид из
окна», полученный Ньепсом в 1826 году с помощью камеры-обскуры на оловянной
пластинке, покрытой тонким слоем асфальта. Экспозиция длилась восемь часов при
ярком солнечном свете. Достоинством метода Ньепса было то, что изображение
получалось рельефным (после протравливания асфальта), и его легко можно было
размножить в любом числе экземпляров.
//PascalABC.NET 3.1 сборка 1219
begin
var a := ArrRandomInteger(10, -900, 900);
a.Println;
Writeln('Max = ', a.Max);
Writeln('Min = ', a.Min);
end.
3*x^1+5*x^0=47 следовательно 3x+5=47 3x=47-5 3x=42 x=14 это значит что число 35 находится в 14-тиричной системе счисления