Вопрос по информатике:
Pascal
Определить среди 3 введенных чисел сумму отрицательных и положительных. Если больше сумма положительных, то найти разность первого и второго числа, а иначе найти произведение 3-х чисел.
ТОЛЬКО ПРОГРАММА
- 07.12.2017 13:10
- Информатика
- remove_red_eye 18045
- thumb_up 82
Ответы и объяснения 1
Program z;
var x, y, a, b, c: integer;
begin
x:=0;
y:=0;
readln(a);
readln(b);
readln(c);
if a > 0 then x:=x+a
else y:=y+a;
if b > 0 then x:=x+b
else y:=y+b;
if c > 0 then x:=x+c
else y:=y+c;
writeln(x);
writeln(y);
if x > y then writeln(a - b)
else writeln(a*b*c);
end.
- 08.12.2017 18:22
- thumb_up 16
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.