2 в 9 степени = 512; Ответ 9
var a: array [1..10] of integer; c,sum: integer;beginsum:=0; writeln('введите элементы массива '); for c := 1 to 10 do read(a[c]); for c := 1 to 10 do if (a[c] mod 9) = 0 then sum:=sum+a[c];writeln('сумма равна =',sum);end.
Информационный объем(I) можно определить как произведение скорости(v) на время(t)
Дано: v=256000 бит/с
t=2 мин =120 c
Найти: I
Решение
I = v*t =256000 бит/с * 120 с =30720000 бит =(делим на 8) =3840000 байт=(делим на 1024)=3750 Кбайт Ответ: 3750 Кбайт
Первая:
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>