Function prime(n:longint):boolean;
var i,j:longint;
p:boolean;
Begin
p:=true;
if (n mod 2)=0 then p=false;
i:=3;j:=round(sqrt(n));
while (i<=j)and(p) do
Begin
if(n mod i)=0 then p=false;
inc(i,2);
end;
prime:=p;
end;
Ответ:
Это?
Объяснение:
Если я правильно понял то это вроде то, кинул ещё 2 вариант как может быть
На паскаль:
var
a: array [1..10] of integer;
max, min, i: integer;
begin
for i := 1 to 10 do
read(a[i]);
max:=-maxint;
min:= maxint;
for i:= 1 to 10 do
if (a[i]>max) then max:=a[i];
for i := 1 to 10 do
if (a[i]<min) then min := a[i];
for i := 1 to 10 do
if (a[i]<0) then a[i] := min else if (a[i]>0) then a[i]:=max;
for i := 1 to 10 do
write(a[i],' ');
readln;
readln;
end.
Для того, чтобы запись числа оканчивалась на 8, это число должно делится на основание системы счисления с остатком 8. Следовательно, число 30-8=22 должно делится на это число без остатка, причём число строго больше восьми. Получаются числа 11 и 22.
"Каким должен быть отрезок А" - если имеется ввиду максимальная длина А - смотрим рисунок
Если есть варианты ответа - надо смотреть по числовой прямой (на рисунке) и выбирать, который из отрезков будет находиться между 13 и 37
Решение на рисунке.