100 мегабайт = 100.000.000 байт
3.445.801 и теперь сравни
100.000.000 > 3.445.801
100 мегабайт больше 3445801
Этот набор
1 2 4 8 16 32
примеры
63 = 32 + 16 + 8 + 4 + 2 + 1
57 = 32 + 16 + 8 + 1
1 = 1
2 = 2
3 = 2+ 1
19 = 16 + 2 + 1
26 = 16 + 8 + 2
<span> x=154 в начале
a:=x div 100; 154 div 100 = 1 (деление нацело), a = 1
b:=x mod 100; 154 mod 100 = 54 (остаток от деления нацело), b = 54
c:=x mod 10; 154 mod 10 = 4, c=4
s:=a+b+c; 1+54+4 = 59, s=59.
Ответ: 59 </span>
Первая:
var a:array[1..50] of integer;
i,bol,men,ravn:integer;
begin
for i:=1 to 50 do begin
readln(a[i]);
if a[i]=0 then inc(ravn);
if a[i]<0 then inc(men);
if a[i]>0 then inc(bol);
end;
writeln(ravn,' - чисел равных нулю');
writeln(men,' - чисел меньше нуля');
writeln(bol,' - чисел больше нуля');
<span>end.</span>