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

Question

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

Определить посреди 3 введенных чисел сумму отрицательных и положительных чисел. Если больше сумма положительных, то отыскать разность первого и второго числа, а по другому отыскать творение 3-х чисел.
БЛОК СХЕМА
ПРОГРАММА
И РАСЧЕТ

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

Арсений Черныгин
Информатика
2019-08-08 09:06:42
0
1

1 ответ

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

Имя:*

E-Mail:

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

Биология. 7 класс. Тема: Обилие простых. Паразитарные простые помогите

Вчера мы нашли котёнка. Он жалобно мяукал и дрожал.Брали мы его

8t-3t+5t=70подскажите чему равно число t пожалуйста

у лаб. схрещували червонооких самок дрозофл з червоноокими самцями. у потомств

Исчезает образовать причастиеСвистнул образовать причастиеувидишь образовать причастие

Все на картинке! ЛЕГКОТНЯ! ПОСТАВЛЮ СРАЗУ НА Превосходнейший!!!!!

Нужен номер 11, 12 уже есть(Помогите пожалуйста, я не разумею.

каким членом предложения является слово quot;тутquot;

какая энергия выделится при полном сгорании смеси 2т коричневого угля и

как из 4- х четвёрок получить 10.без корня и чтоб все четвёрки были отдельно

Элина Реймонт · Answer 1 · 2019-08-08 09:13:52+3:00

Напишу только программку.

Var a,b,c,x,i,s1,s2:integer;
Begin
s1:=0; s2:=0;
c:=0; b:=0;
for i:=1 to 3 do
begin
write('x',i,'=');
readln(x);
if xgt;0 then s1:=s1+x;
if xlt;0 then s2:=s2+x;
c:=b; b:=a; a:=x;
end;
if s1gt;s2 then s1:=c-b
else s1:=c*b*a;
writeln('Ответ: ',s1);
End.

О проекте

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

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