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

Question

PascalОпределить среди 3 введенных чисел сумму отрицательных и положительных. Если больше сумма положительных, то найти разность первого и второго числа, а иначе найти произведение 3-х чисел. ТОЛЬКО ПРОГРАММА

Answer 1

81

farisey

30 августа 2022

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: