Задание:
PascalОпределить среди 3 введенных чисел сумму отрицательных и положительных. Если больше сумма положительных, то найти разность первого и второго числа, а иначе найти произведение 3-х чисел. ТОЛЬКО ПРОГРАММА
Решение:
Program z; var x, y, a, b, c: integer; beginx: =0; y: =0; readln (a); readln (b); readln (c); if a > 0 then x: =x+aelse y: =y+a; if b > 0 then x: =x+belse y: =y+b; if c > 0 then x: =x+celse y: =y+c; writeln (x); writeln (y); if x > y then writeln (a — b) else writeln (a*b*c); end.
Знаете другой ответ?