Program z1;
var A:array[1..30] of integer;
i,k:integer;
begin
k:=1;
for i:=1 to 30 do begin
write('a[',i,']=');
read(a[i]);
end;
for i:=1 to 30 do
if a[i] mod 2=0 then
k:=a[i]*k;
writeln(k);
end.
<span>xv = int(input("Введит минути: "))
sec = int(input("Введит секунди: "))
if xv >0 or sec > 0 <span>:
</span> print("Секунди в минутах ",xv ,'=', xv*60,'секунд!')
print("Загальний час в секундах = ",xv*60+sec,'секунд!')
else<span>:
</span> print("Час не може бути менше 0!!!")</span>
//прога на Pascal`e
var
i, n: byte;
sum, a : longint;
begin
read (n);
for i:=1 to n do
begin
read (a);
if a mod 7 = 0 then inc (sum, a);
end;
write (sum);
end.
(I - информационный объем текста, K - кол-во символов, i - вес одного символа/бит на символ)
Дано:
K = 22 шт
i = 16 бит
I - ?
Решение:
I = K * i = 22 * 16 бит = 352.0 бит
352.0 бит = 44.0 байт
Походу пропущен один знак у фразы
327680 - информационный вес в битах/10240(20*64*8)=32