Паскаль! Вводятся Х и Y. Если хотя бы одно из этих чисел положительно, то

найти их произведение. Иначе - найти их сумму. И желательно блок схему

Question

Егорий

9 мая, 06:52

+4

Ответы (1)

Знаете ответ на вопрос?

Просдока · Answer 1

X, y: integer;

begin

readln (x, y) ;

if (x > 0) or (y > 0)

then

writeln (x * y)

else

writeln (x + y) ;

end.

С рисованием туго тут уж сам.

Паскаль! Вводятся Х и Y. Если хотя бы одно из этих чисел положительно, тонайти их произведение. Иначе - найти их сумму. И желательно блок схему