Даны числа от -10 до 15. найти сумму положительных и производение отрицательных. прошу
144
302
Ответы на вопрос:
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
Т.к. 64 это 2^6 то что-бы вычислить инф. объём текста мы умножаем 6 на 100 и получается 600 = 75 байт
Популярно: Информатика
-
bezin200010.05.2020 11:38
-
LinaLafe16.04.2022 14:48
-
валера33629.12.2022 17:34
-
NasTieZ3119.09.2021 10:03
-
Полинка160809.06.2021 06:43
-
yanaoneshko56229.09.2021 16:32
-
Tiger33308.08.2021 10:26
-
Skillet12151610.04.2020 23:36
-
Negogda01.06.2020 22:05
-
danekhakker14.01.2023 21:34