Если их произведение является отрицательным числом - Pascal ABC
Формулировка задачи:
Даны 3 числа:а,b,с. Эти числа целые. Если их произведение является отрицательным числом ,то вывести сумму квадратов этих чи сел, в противном случае, сумму кубов этих чисел.Помогите,плиз
Решение задачи: «Если их произведение является отрицательным числом»
textual
Листинг программы
if a<0 then s:=a else s:=0; if b>0 then s:=s+b; if c>0 then s:=s+c;
Объяснение кода листинга программы
- Проверка условия: если переменная
a
отрицательна, то присваиваем переменнойs
значение переменнойa
, иначе присваиваем переменнойs
значение 0. - Проверка условия: если переменная
b
больше 0, то прибавляем к переменнойs
значение переменнойb
. - Проверка условия: если переменная
c
больше 0, то прибавляем к переменнойs
значение переменнойc
.