Задания в small basic ставлю нужно дан калькулятор v.1 который выполняет одну из 5 арифметических операций над числами.

s= TextWindow. Read()
'выясняет какая операция
A="+-/*^"
TextWindow. WriteLine("s= " + s)
op =0
i=1
While op=0 And i 0 Then
num1= Text. GetSubText(s, 1, op-1)
num2= Text. GetSubTextToEnd(s, op+1)
zn=Text. GetSubText(s, op,1)
If zn="+" Then
ответ = num1 + num2
EndIf
If zn="-" Then
ответ = num1 - num2
EndIf
If zn="*" Then
ответ = num1 * num2
EndIf
If zn="/" Then
ответ = num1 / num2
EndIf
If zn="^" Then
ответ = Math. Power(num1, num2)
EndIf
EndIf
'вывод результата
TextWindow. WriteLine("ответ="+ ответ)
В качестве задания вам необходимо написать программу которая будет по аналогии разбирать и вычислять выражение с тремя числами и двумя операциями. Обязательным условием является то что выражение вводится один раз и целиком. Перечень арифметических операции остается без изменений, дублирование операций например : "2+7+9" допускается.

program xxx;

    var i, n : integer;

                      s : real;

                    a : array [1..20] of real;

begin

  writeln('введите размерность массива n=');

  readln(n);

  write('введите элементы массива а: ');

  for i: =1 to n do

        readln(a[i]);

  writeln('исходный массив а: ');

  for i: =1 to n do

        writeln(a[i]);

  s: =0;

  for i: =1 to n do

      if a[i] mod 2 = 0 then s: =s+a[i];

  writeln('сумма четных элементов =', s);

  readln

end.

1

program xxx;

    var n : integer;

begin

    write('введите число n=');

    readln(n);

    if n mod 2 = 0 then write('четное') else write ('нечетное');

    realdn

end.

2

program xxx;

    var n : integer;

begin

    write('введите число n=');

    readln(n);

    e : = n mod 10

    if e = 7 then write('заканчивается на 7') else write ('не заканчивается на 7');

    realdn

end.

правильно треугольник)

если есть д ш и в то это не куб а параллелипипед

var 

a,b,c,r: real;

begin

readln(a,b,c,r);

if (2*r< a) and (2*r< b) and  (2*r< c)

then writeln('поместится')

else writeln ('не поместится');

end.

для куба достаточно одного условия (2*r< a)