Составить алгоритм вычисления суммы двух чисел,если они оба отрицательные,в противном...

Question

Составить алгоритм вычисления суммы двух чисел,если они оба отрицательные,в противном случае вычисления их произведения

Comments

алгоритм блок-схемой, если можно

---

Так и надо было в условии указать. Чего стесняетесь) Добавлю через минут 5 в решение

---

спасибо, я уже всё решила)

---

Я тоже )

---

сравним ?)

---

Я свой добавил в решение, сравнивайте

Answer 1

var a,b,res:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
if (a<0)and(b<0) then res:=a+b else res:=a*b;<br>writeln('Результат = ',res);
end.

Пример:
a = -5
b = 8
Результат = -40
Блок-схема - в прилагаемом файле.

Answer 2

Var a,b:integer;
begin
  writeln('Введите два числа: ');
  readln(a,b);
  if (a<0) and (b<0) then writeln(a+b) <br>    else writeln(a*b);
end.

---