Даны числа от -10 до 15. найти сумму положительных и производение отрицательных

misterion10 misterion10    2   23.06.2019 08:30    0

Ответы
elenakovaleskau elenakovaleskau  19.07.2020 09:59
Положительные числа: 1+2+3+4+5+6+7+8+9+10+11+12+13+14+15=120
Отрицательные числа: -10-9-8-7-6-5-4-3-2-1= -55
ПОКАЗАТЬ ОТВЕТЫ
Omigoooos3 Omigoooos3  19.07.2020 09:59
Var a,b,n:integer;
begin
a:=1;
n:=-10;
while n<=15 do
begin
if n<0 then a:=a*n else b:=b+n;
n:=n+1;
end;
write (a:6,b:6);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика