Question

Даны 2 числа,если числа положительные найти их сумму,если отрицательные найти их произведение

Answer 1

//Pascal

var a, b: integer;

begin

write ('Введите два числа: ') ; readln (a, b) ;

if ((a < 0) and (b < 0)) then

writeln (a * b)

else

if ((a > 0) and (b > 0)) then

writeln (a + b)

else

writeln (a*3 + b*2) ;

end.

Answer 2

Хорошо! Для данной задачи, вам потребуется проверить знаки данных двух чисел. Вот примерный алгоритм, который вы можете использовать для решения этой задачи:

1. Введите два числа.
2. Проверьте знаки чисел с помощью условных операторов (if-else).
3. Если оба числа положительные, сложите их вместе и выведите результат.
4. Если оба числа отрицательные, перемножьте их и выведите результат.
5. Если хотя бы одно число равно нулю, выведите сообщение о том, что умножение на ноль не определено.
6. Если ни одно из вышеперечисленных условий не выполняется, выведите сообщение о том, что операция не определена для данных чисел.

Вот пример реализации на псевдокоде:

scssCopy code
ввод числа1
ввод числа2

если (число1 > 0) и (число2 > 0) то
    сумма = число1 + число2
    вывести "Сумма чисел равна " + сумма
иначе если (число1 < 0) и (число2 < 0) то
    произведение = число1 * число2
    вывести "Произведение чисел равно " + произведение
иначе если (число1 == 0) или (число2 == 0) то
    вывести "Умножение на ноль не определено"
иначе
    вывести "Операция не определена для данных чисел"
конец если

Надеюсь, это поможет!