8364 простых числа....
denisx.ru/tech/prime-number/prime-numbers/first
по ссылке таблица до 100000.
копируем от 10007 до конца и в ексель. 836 столбиков умножаем на 10 и плюс 3. 8363 ошибся на один
Решение в прикрепленном файле ниже:
Площадь находиться длинну умножить на ширину,а периметор все стороны надо сложить
1111101(2)=2^6+2^5+2^4+2^3+2^2+2^0=125(10)
AF(16)=175(10)
A=10 F=15
AF(16)=16^1*10+16^0*15=175(10)
36(8)=3*8^1+6*8^0=30(10)
1101(2)=2^3+2^2+2^0=13(10)
125+175+30+13=343
Var
i,imax,max:integer;
b:array[1..50]of integer;
begin
for i:=1 to 50 do
begin
b[i]:=random(100);
write(b[i],' ');
if b[i]>max then
begin
max:=b[i];
imax:=i;
end;
end;
writeln;
writeln('Максимальное число: ',max,'; его номер: ',imax);
<span>end.</span>