X=125
a= 125 div 100= 1
b= 125 mod 100 div 10= 25 div 10 = 2
c= 125 mod 10 =5
s= 1+2+5=8
x= 248
a= 248 div 100= 2
b= 248 mod 100 div 10= 48 div 10 = 4
c= 248 mod 10 =8
s= 2+4+8=14
x=789
a= 789 div 100= 7
b= 789 mod 100 div 10= 89 div 10 = 8
c= 789 mod 10 =9
s= 7+8+9=24
Решение в файле, ну а как сравнить (отношением или больше-меньше) это вы сами допишете.
Около 15 дней.
Если посчитать сколько каждый вирус в день повреждает, можно высчитать сумму сколько места съедают все вирусы в день.
А=34мб
Б=17мб
С=11мб
Д=5,6мб
Все они в сумме съедают в день 68мб в день. Делим 1гб (1024 мб) на 68 мб.
1024:68=15
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(8,-9,9); a.Println;
Writeln('Сумма положительных ',a.Where(t->t>0).Sum);
Writeln('Количество нулей ',a.Where(t->t=0).Count)
end.
<u>Пример</u>
2 6 -6 7 0 2 3 6
Сумма положительных 26
Количество нулей 1