Есть ответ 👍

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

144
302
Посмотреть ответы 3

Ответы на вопрос:

ananas6947
4,4(57 оценок)

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.

Положительные числа: 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
nslava783
4,8(56 оценок)

Т.к. 64 это 2^6 то что-бы вычислить инф. объём текста мы умножаем 6 на 100 и получается 600 = 75 байт

Популярно: Информатика