Const
n = 5;// количество элем массиваvar
a: array [1..n] of integer;
sum, i: integer;begin
for i := 1 to n do
readln(a[i]);
for i := 1 to n do
if a[i] = i then
sum := sum + a[i];
writeln(sum);
end.
Если запись числа оканчивается на 8, то система счисления (далее - с/с) не может иметь основание меньше чем 8+1=9. В этой системе счисления представление числа 30 будет двухзначным (с помощью одного разряда может быть представлено число, не превышающее 8, а двух разрядов достаточно для записи числа 9²-1=80, что превышает 30).
Двухзначное число может быть записано в с/с по основанию n следующим образом: na+b. По условию число оканчивается цифрой 8 и его значение равно 30. Получаем уравнение:
na+8=30 ⇒ na=22.
Раскладываем 22 на простые множители: 22=1х2х11
Решение уравнения в целых числах при условии n>8 дает два варианта ответов:
(n=11, a=2), (n=22, a=1).
Это порождает два числа:
Существует ли с/с по основанию n, в которой запись числа 30 будет одноразрядной?
Уравнение 8n=30 не имеет решений в целых числах, поэтому такой с/с не существует.
Ответ: 30(10)=18(22)=28(11).
<span>тильда (~) ,</span><span>знак номера (#) ,п</span><span>роцент (%) ,</span><span>амперсанд (&) ,</span><span>звездочка (*) ,</span><span>фигурные скобки ({}) ,</span><span>обратная косая черта (\) ,</span><span>двоеточие (:) ,</span><span>угловые скобки (<>) ,</span><span>вопросительный знак (?) ,</span><span>косая черта (/) ,</span><span>знак плюс (+) ,</span><span>вертикальная черта (|), </span><span>знак кавычек (")</span>
Procedure TForm1.Button1Click(Sender: TObject);
var
xn, e, m : Extended;
xnn : Extended;
begin
Memo1.Clear;
xn := StrToFloat(Edit1.Text);
e := StrToFloat(Edit2.Text);
m := StrToFloat(Edit3.Text);
repeat
xnn := xn;
xn := (1/3)*(2*xnn + (m/(xnn*xnn)));
Memo1.Lines.Append('xn = '+floattostr(xn));
until (Abs(xn-xnn)<e);
<span>end;
</span>