Задание:
Определить среди 3 введенных чисел (a,b,c) количество отрицательных и положительных. Если больше отрицательных то найти произведение этих 3 чисел, аиначе найти max из трех
Решение:
Var a, b, c, x, x1: Real; begin readln (a, b, c); if (a < 0) then x: =x+1 else x1: =x1+1; if (b < 0) then x: =x+1 else x1: =x1+1; if (c < 0) then x: =x+1 else x1: =x1+1; writeln (x1, '; ', x); if (x1 < x) then writeln (a*b*c) else begin x: =a; if (b > x) then x: =b; if (c > x) then x: =c; writeln (x); end; end.
Знаете другой ответ?