Var ar:array[1..5] of integer;
i,k1,k2:integer;
begin;
for i:=1 to 5 do
begin;
readln(ar[i]);
if ar[i]<0 then k1:=k1+ar[i] else k2:=k2+ar[i];
end;
writeln('Сумма положительных:',k2);
write('Сумма отрицательных:',k1);
<span>end.</span>
1) Выпало одно значение из 128. Считаем в битах. log2(128) = 7 битов.
2) log2(256) = 8 битов или 1 байт на символ. "Миру Мир!" - 9 символов, следовательно, 9 байтов.
Ну хорошо, двоечник. Чем смогу, помогу. Тем более что информатика, мой любимый предмет. Значит так:
1.При сложении данных, компоновке данных можно получить новую информацию, к примеру: Если знать дату смерти Пушкина, и какой сейчас год то при определенной компоновке данный (вычесть из текущего года дату смерти) можно информацию, о годовщине смерти Пушкина.
2.Смотри пример выше.
4.Терминология, используемая на уроке
5.К примеру авария на ГЭС
6.Смотри выше - никто еще не сказал, в чем официальные причины аварии.
<span>Пока все что помню. Мож еще вспомнится. У нас последняя информатика была на экзамене, в начале лета))) </span>
Решение во вложении ниже
небольшие пометки:
1. писал в ABC.net паскале команда power(x,2) - возведение Х во 2 степень, если писать в других оболочках паскаля, возможно можно будет использовать запись x^2
2. Формула сферы (x-x0)²+(y-y0)²+(z-z0)² = R²
где x0, y0, z0 - координаты начала (т.к. у нас начало в центре получаются эти координаты 0 0 0) и получаем формулу сферы x²+y²+z²=R²
причем эта формула для поверхности сферы, по условию задачи нужно найти точки внутри сферы, поэтому ставим не =, а < (если же понадобятся еще точки лежащие на поверхности сферы, нужно из < сделать <=)