Предмет: Информатика,
автор: dimon420
Паскаль!!!!!! Вводятся Х и Y. Если хотя бы одно из этих чисел положительно, то
найти их произведение. Иначе – найти их сумму. И желательно блок схему
Ответы
Автор ответа:
0
x, y: integer;
begin
readln(x, y);
if (x > 0) or (y > 0)
then
writeln(x * y)
else
writeln(x + y);
end.
С рисованием туго тут уж сам.
begin
readln(x, y);
if (x > 0) or (y > 0)
then
writeln(x * y)
else
writeln(x + y);
end.
С рисованием туго тут уж сам.
Похожие вопросы
Предмет: География,
автор: Аноним
Предмет: Математика,
автор: bliz2008
Предмет: Математика,
автор: chimkentcity
Предмет: Математика,
автор: lex8069
Предмет: Алгебра,
автор: vany1234567