Информатику. ввести 2 числа ,найти их сумму и произведение ,если произведение окажется положительным ,то выдать его на экран,а иначе выдать на экран сумму.

anasasiyakoval anasasiyakoval    2   14.06.2019 00:50    0

Ответы
КэтЗед КэтЗед  10.07.2020 20:24
Var
a,b:integer;
begin
readln(a,b);
a:=a*b;
if a>0 then
writeln(a)
else
writeln(a+b)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика