var mas:array [1..15] of integer;
i:integer;
k:biginteger;
function f(mas:integer):boolean;
begin
if (mas mod 3=0) then f:=True;
if (mas mod 3<>0) then f:=False;
end;
BEGIN
k:=1;
for i:=1 to 15 do begin
mas[i]:=random(100)+1;
write(mas[i],' ');
if (f(mas[i])=True) then k:=k*mas[i];
end;
writeln();
if (k=1) then writeln('Нет элементов, кратных 3') else
writeln(k);
end.
64000:8=8000байт
8000:1000=8Кбайт
16*8=128 Кбайт
ответ:128
1) N = 2^i
64 = 2^i
i = 6 бит глубина кодирования одного символа
2) 30 * 4 = 120 строк на 4 страницах текста
3) 7200 байт = 7200 * 8 = 57600 бит информационный объем сообщения
4) 57600 бит / 6 бит = 9600 всего символов в этом сообщении
5) 9600 символов / 120 строк = 80 символов в 1 строке этого сообщения
Ответ: 80 символов в 1 строке
Переменная а, в, с, х:целый;
Начало
ввод(а);
с:=0;
для в:=1 до а делать
Начало
ввод(х);
если х>0 тогда начало
с:=с+х;
конец;
вывод("Количество слагаемых: ", в, " Сумма: ", с);
конец.
А:=8 b:=5 с:=2
Ведь не меняется значение
a = 8