: Выполнить перевод правильных дробей из десятичной системы счисления в двоичную, восьмеричную и шестнадцатеричную системы счисления:

1) 0,2510 2) 0,12510 3) 0,3410 4) 0,3710 5) 0,3910 6) 0,4110 7) 0,4410 8) 0,4910

9) 0,5210 10) 0,5610 11) 0,5910 12) 0,6110 13) 0,6210 14) 0,6310 15) 0,6810 16) 0,6910

17) 0,7310 18) 0,7610 19) 0,7910 20) 0,8210 21) 0,8410 22) 0,8510 23) 0,8610 24) 0,8910

25) 0,9110 26) 0,9310 27) 0,9410 28) 0,9510 29) 0,9610 30) 0,9910

1) Браузер

2) Таблица

3) 2 ( обновить ссылку на странице, которая будет вести на новую страницу n, и на самой странице n)

4) Графически представлять данные с графиков и диаграмм, выводить на печать электронные таблицы; вычислять и анализировать данные, а также пересчитывать значения при изменении данных; создавать, открывать, редактировать, а также сохранять таблицы в файле

5)Название документа, название программы и кнопки управления окном

6)Числовые данные

7)Один столбец с числами

8)Параметры диаграммы, тип и вид диаграммы и источник данных диаграмм

Все ответы проверены

Program massiv;
Const N=10;
Var Rmin: integer;
j,i:integer;
C:array[1..N] of real;
T:array[1..2*N]of real;
Begin
For i:=1 to N do Begin
C[i]:=sqrt(i)* sin(2*i)/cos(2*i);
Write(C[i]:5:2, ' ');
End;
writeln('');

For i:=1 to N-1 do begin
T[i]:=C[i+1]-C[i];
T[N+i-1]:=C[i]-C[i+1];
end;

Rmin:=1;
for i:=2 to 2*N-2 do begin
if T[i]<T[Rmin] then
Rmin:=i;
end;

if Rmin<N then
writeln('naimenshaya raznost= ', Rmin+1, ' and ', Rmin, ' elementiv' )
else
writeln('naimenshaya raznost= ', Rmin-N+1, ' and ', Rmin-N+2, ' elementiv' );
end.