Даны два числа. Если они положительные, то найти их сумму. Если они отрицательные, то их произведение, если они имеют разные знаки, то найти сумму утроенного первого числа с удвоенным вторым.
Answers & Comments
pacixor
//Pascal var a, b: integer; begin write('Введите два числа: '); readln(a, b); if ((a < 0) and (b < 0)) then writeln(a * b) else if ((a > 0) and (b > 0)) then writeln(a + b) else writeln(a*3 + b*2); end.
Answers & Comments
var a, b: integer;
begin
write('Введите два числа: '); readln(a, b);
if ((a < 0) and (b < 0)) then
writeln(a * b)
else
if ((a > 0) and (b > 0)) then
writeln(a + b)
else
writeln(a*3 + b*2);
end.