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