Определить среди 3 введенных чисел

Question

Определить среди 3 введенных чисел (a,b,c) количество отрицательных и положительных. Если больше отрицательных то найти произведение этих 3 чисел, аиначе найти max из трех

Answer 1

57

maxter

30 августа 2022

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.

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

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

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

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

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