А8=341=3*8^2+4*8^1+1*8^0=225
A6=341=3*6^2+4*6^1+1*6^0=133
A16=341=3*16^2+4*16^1+1*16^0=
A5=34,1=3*5^1+4*5^0+1*5^-1=
Последние две строчки сам посчитай.
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
Программа работает
var
<span>n,</span><span>i,j,</span><span>s :integer;
</span>begin
Write('введите число');
Readln(n);
for i:=1 to n
do begin
s:=0;
for j:=1 to i div 2 do begin
if i mod j=0 then inc(s);end;
if s=1 then Writeln(i);
end;end.
<span>
П.С. программа находит все простые числа до заданного тобой числа</span>
Var
a:array[1..100] of integer;
b, c, i: integer;
begin
read(b); read(c);
for i:=b to c do begin
a[i]:=i;
if a[i] mod 2=0 then
writeln(a[i], ' '); end;
end.