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

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

Question

Алексеич

20 января, 22:04

+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. Если хотя бы одно из этих чисел положительно, тонайти их произведение. Иначе - найти их сумму. И желательно блок схему