10 = 3*3+3/3 (= 9+1)
8 = 3*3-3/3 (=9-1)
то, что находится в скобках писать не нужно
Var
a : char;
b : integer;
begin
readln(a);
b := ord(a);
writeln(chr(b+1), chr(b+2))
end.
Sub Z()
Dim a As Integer
a = InputBox("1")
Dim b As Integer
b = InputBox("2")
If Math.Abs(a) > Math.Abs(b) Then a = a / 5
End Sub<span>
</span>
Вот вам программа, сделал как понял её: если А - не четное число, выполняем (а*в), а если А - четное, выполняем 2 функции при которых если x>3 выполняем x^2+5, а если <=3, то x-8
сравнение тоже с помощью условных операторов сделал