Предмет: Информатика, автор: dimon420

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

Ответы

Автор ответа: kavko903
0
x, y: integer;
begin
readln(x, y);
if (x > 0) or (y > 0)
 then
writeln(x * y)
else
writeln(x + y);
end.
С рисованием туго тут уж сам.
Похожие вопросы
Предмет: Математика, автор: bliz2008