Var Ch : Char;
Begin
Readln(Ch);
Writeln(Chr(Ord(Ch)-1),Chr(Ord(Ch)+1));
end.
16 Гб = 16777216 Кб
8^x = 16777216
x = log 16777216 по основанию 8 = 8
какие 4 предмета сдовать в геа
√(x-0,3)^2 =|x-0,3|
Поэтому можно так:
Var
x:real;
Begin
Write('x = ');
Read(x);
Write('y = ',sqrt(sqr(x-0.3)))
End.
а можно так:
Var
x:real;
Begin
Write('x = ');
Read(x);
Write('y = ',abs(x-0.3))
End.