64*52*52=173056 символов всего в книге
169 * 1024 = 173056 байт (в 169 кБайтах)
173056 / 173056 = 1 байт нужен для кодировки каждого символа
1 байт = 8 бит
Ответ:
2) 8 бит
Интернет - всемирная паутина, которая хранит в себе тонны информации. Он заменяет нам любой источник информации и облегчает понимание.
Газеты/журналы - письменные, или же стандартные способы получения информации на бумаге.
Телевидение - самый удобный источник информации. Содержит в себе и картинку, и звук, и приятную визуализацию.
Постеры/афиши - бумажки расклеенные по городу или же огромные постеры размещенные на зданиях. Очень привлекает внимание, тем самым увеличивает число интересующихся.
Радио - звуковая информация, уже перестает быть актуальной. В основном, радио - это не новости, а что-то более развлекательное.
Ответ: 1 изображение - код
2 изображение - проверка, как в задании
Код:
program school10;
Var a, b:Real;
begin
Write('Введите цену 1 кг яблок>> ');
readln(a);
Write('Введите кол-во покупаемых кг. яблок>> ');
Readln(b);
If b>2 then
Write('Стоймость яблок составит: ', b*a*0.8, ' руб.')
Else write('Стоймость яблок составит ', b*a, ' руб.');
end.
//Pascal ABC.NET 3.1 сборка 1219
Const
n=10;
Var
c,i,k:integer;
ar:array[1..n] of integer;
r:real;
begin
readln(c);
writeln('Array:');
for i:=1 to n do
begin
ar[i]:=random(-43,34);
if ar[i]>c then
begin
inc(k);
r:=r+ar[i];
end;
write(ar[i]:4);
end;
writeln;
r:=r/k;
write(r);
end.
Пример ввода:
0
Пример вывода:
Array:
20 -23 23 18 -40 -16 -39 31 -12 21
22.6
//На Pascal
const N = 40;
var a: array [1..N] of longint;
i,k: longint;
begin
for i := 1 to N do
readln(a[i]);
k := 0;
for i := 1 to N - 1 do
if ((a[i] + a[i + 1]) mod 6 <> 0) and (a[i] * a[i + 1] <1000) then
k:=k+1;
writeln(k);
<span>end.</span>