<u>PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var s:=0.0;
for var i:=1 to n do s+=1/i;
Writeln('S=',s)
end.
<u>Пример</u>
n= 10
S=2.92896825396825
1 слева к 6 справа
2 слева к 3 справа
3 слева к 1 справа
1)pascal
2)C++
3)ассемблер
4)python
5)java три последних посмотрел по интернету но вроде всё сходится
1)
var
a, b, c, d, max: integer;
begin
readln(a, b, c, d);
if(a > b) and (a > c) and (a > d) then max := a
else if(b > a) and (b > c) and (b > d) then max := b
else if(c > a) and (c > b) and (c > d) then max := c
else max := d;
write(max);
end.
2)
var
a, b, c, max:
integer;
begin
readln(a, b, c);
if(a > b) and (a > c) then max := a
else if(b > a) and (b > c) then max := b
else max := c;
write(max);
end.
Некоторые примеры.
Непозиционная:
Унарная (единичная) система счисления.
В ее алфавите всего один символ, например [1] или [0].
<span>Позиционные:
</span>Двоичная <span>.
</span>Алфавит: [0,1]
Восьмеричная.
Алфавит: [0,1,2,3,4,5,6,7]
Шестнадцатеричная.
Алфавит: [0,1,2,3,4,5,6,7,8,9, A, B, C, D, E, F]
И т.д.