ТутРешу.Ру

PascalОпределить среди 3 введенных чисел сумму отрицательных…

Задание:

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.




Знаете другой ответ?

Отправить свой ответ