<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=ReadReal;
var y:real;
if x<5 then y:=1/(x-5)
else
if x=5 then y:=45
else y:=x**3-20;
Writeln(y)
end.
<u>Пример</u>
12.543
1953.350667007
var a,b,c,d:integer;
begin
writeln('Вступительный балл');
readln(a);
writeln('1 экзамен ');
readln(b);
writeln('2 экзамен ');
readln(c);
writeln('3 экзамен ');
readln(d);
if a<(b+c+d) then
writeln('Ученик принят');
else
writeln('Ученик не принят');
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]
И т.д.