Вопрос по информатике:
определить среди 3 введенных чисел (a,b,c) количество отрицательных и положительных. Если больше отрицательных то найти произведение этих 3 чисел, а иначе найти max из трех
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 26.06.2017 14:43
- Информатика
- remove_red_eye 18737
- thumb_up 101
Ответы и объяснения 1
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.
- 27.06.2017 14:07
- thumb_up 50
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.