Там рандомные числа выходят точно чему равин s не возможно узнать
Uses crt;
var n,sum,i:integer;
begin
read(n);
while n>0 do
begin
if ((n mod 10) mod 2=0) and (n mod 10<8) then
sum:=sum+(n mod 10);
n:=n div 10;
end;
writeln(sum);
<span>end.</span>
40 * 60 * 32 / 8 = 9600
Ответ: <span>г) 9600 байтов</span>
Можно упростить оба выражения:
1*10^-1+6*10^-2+4*10^-3
Вроде так записывается,навсякий случай проверь у преподавателя.