Данный вопрос уже был поэтому отвечу так же :
У 10-ой алфавит: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 = 10 цифр => основание равно 10.
<span>У 2-ой алфавит: 0, 1 = 2 цифры => основание равно 2. </span>
(калькулятор) пуск всі програми стандартне калькулятор
program raf105;
const
n = 7;
var
a:array[1..n] of integer;
i,x,y: integer;
z: boolean;
begin
write('Введите 2 числа. Минимальное и максимальное: ');
readln(x,y);
writeln('Заполните массив из ',n,' элементов');
for i:=1 to n do
readln(a[i]);
write('Изменённый массив: ');
for i:=1 to n do
begin
if (not z) and (x<=abs(a[i])) and (abs(a[i])<=y) and (a[i]<0)
then begin
a[6]:= a[i];
a[i]:= i;
z:= True;
end;
write(a[i],' ');
end;
end.
<h3><u>PascalABC 3.4.2</u></h3>
Папка Рабочий стол является вершиной иерархической файловой системы
<h2>PascalABC.NET 3.4.2, сборка 1979 (16.02.2019)</h2><h2>Код</h2>
- begin
- var arr := Range(0, ReadInteger).Select(x -> x*x).Println;
- end.
<h2>Вывод</h2>
10
0 1 4 9 16 25 36 49 64 81 100