- 13.01.2018 08:43
- Информатика
- remove_red_eye 12073
- thumb_up 40
Ответы и объяснения 1
Var a, b, c, min, max, answer : integer;
begin
read(a,b,c);
min := a;
max := b;
if min > b then min:=b;
if min > c then min:=c;
if max < b then max:=b;
if max < c then max:=c;
writeln("max =", max);
writeln("min =", min);
if (max > 0) and (min > 0) then answer:=a+b+c
else answer:=a*b*c;
writeln("ответ = ", answer);
end.
- 14.01.2018 08:19
- thumb_up 7
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.