Question

Решить : ( делать в условном операторе)1. даны 2 числа а и b, найти разность между большим и меньшим из этих чисел. 2. дано вещественное число а, число а увеличивается в 3 раза, если оно отрицательное, и делится на 2 если положительное. 3. даны 2 числа, вещественные меньшее из них увеличить в 10 раз. 4. дано вещественное число b, число b вез вести в квадрат если оно отрицательное и оставить неизменным если оно положительное.5. дано натуральное число b, возвести число в кую если оно четное, в противном случае оставить неизменным.

Answer 1

1. if a>b then writeln(a-b) Else if a0 then a:=a/2 Else writeln('Число равно 0'); 3. If a>b then b:=b*10 Else if a