PascalОпределить посреди 3 введенных чисел сумму отрицательных и положительных. Если больше

Question

PascalОпределить посреди 3 введенных чисел сумму отрицательных и положительных. Если больше

Pascal
Найти посреди 3 введенных чисел сумму отрицательных и положительных. Если больше сумма положительных, то отыскать разность первого и второго числа, а по другому отыскать произведение 3-х чисел.
ТОЛЬКО Программка

Задать свой вопрос

Яна Вилягжанина 2019-08-16 01:12:17

Да я знаю)) Но в задании так.

Фагылов Степа
Информатика
2019-08-16 01:03:13
0
1

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Помогите!Очень необходимо!Как можно прытче)Придумайте задачку,решением которой является выражение

Упрастите виражение x^3-2x-4x+8Пожалуйста,растолкуйте как ето делаетса!!

в конюшне12 арабских лошадок, донских на 4 меньше.А английских на 6

Составьте выражение по тексту задачи:У Пети 150 марок,а у Юры на

составить не великий рассказ по поговорке один за всех и все

Морфологический разбор слов quot;В кинофильмеquot; , quot;В размокшейquot;

Изобразите систему координат Oxyz , и постройте точку А (1;-2;-4) .

паша сделал 14 снимков.это на 6 снимков меньше чем сделала маша!сколько

Помогите мне пожалуйста перевести текст на британский язык(без переводчика) ооочень нужно!

1)Указать верхушку параболы и направление ветвей параболыу=-х^2 +12х-5у=0,5(х+3)^2-6y=4x^2-7

Лариса Тукеева · Answer 1 · 2019-08-16 01:09:07+3:00

Program z;
var x, y, a, b, c: integer;
begin
x:=0;
y:=0;
readln(a);
readln(b);
readln(c);
if a gt; 0 then x:=x+a
else y:=y+a;
if b gt; 0 then x:=x+b
else y:=y+b;
if c gt; 0 then x:=x+c
else y:=y+c;
writeln(x);
writeln(y);
if x gt; y then writeln(a - b)
else writeln(a*b*c);
end.

О проекте

PascalОпределить посреди 3 введенных чисел сумму отрицательных и положительных. Если больше

Добро пожаловать!