type massiv = array [2..21] of integer; var mass : massiv; i, summa : integer;
begin summa := 0; for i:=2 to 21 do begin mass[i]:=i; if (mass[i] mod 2 = 0) then summa := summa + mass[i] end; writeln('Сумма четных эл-тов равна : ', summa); readln; end.
program z; var a : array[2..21] of integer; i,summ : integer; b : array[2..21] of integer;
begin for i:= 2 to 21 do begin a[i]:=i; end;
for i:=2 to 21 do begin if a[i] mod 2 = 0 then begin b[i]:=a[i]; end;
end;
summ:=0; for i:=2 to 21 do begin summ:=summ+b[i]; end; Writeln(summ); readln;
Узнаем количество символов данной статьи. Для этого умножим 40*32*16.
Пока мы просто составили выражение, перемножать не будем.
Каждый символ кодируется 8 битами, следовательно информационный объём статьи будет равен 8*40*32*16.
Перемножать пока, опять же, не будем. Чтобы ответ не был таким большим и пугающим, переведём всё а килобайты. Для этого полученное ранее выражение разделим на 8 (чтобы перевести в байты), затем на 1024 (чтобы перевести в килобайты).
Получаем выражение: (8*40*32*16)/(8*1024)
Восьмёрки в числителе и знаменателе сокращаем. Получается: (40*32*16)/1024
Сократим числитель и знаменатель на 32. Получаем: (40*16)/32
Компьютер моей мечты - такой, который обладает гигантской пропускной в плане взаимодействия с пользователем. Лично я набираю этот текст на клавиатуре примерно на 1/20 от той скорости, с которой я бы его читал, а читаю этот текст я примерно на 1/3 от скорости моего мышления. Это крайне медленно. Прорывной компьютер должен быть на прямое считывание наших мыслей, никаких клавиатур, мышей и микрофонов. Естественно, у него должна быть нерушимая защита от взлома. И еще кое-что - на нем должна быть программа мощного ИИ для значительного усиления моих творческих, познавательных и коммуникативных Только делать ИИ умнее меня не стоит, ибо могут проявиться некоторые "непредсказуемые последствия". Хоть сейчас все это и кажется фантастикой, но примерно через 40-50 лет и прямая связь с мозгом, и ИИ уровня человека (или чуть повыше) вполне могут стать обыденностью, как это сейчас и произошло с Айфонами и интернетом.
Воот. Мне определенно следует меньше читать Тима Урбана...
massiv = array [2..21] of integer;
var
mass : massiv;
i, summa : integer;
begin
summa := 0;
for i:=2 to 21 do
begin
mass[i]:=i;
if (mass[i] mod 2 = 0) then
summa := summa + mass[i]
end;
writeln('Сумма четных эл-тов равна : ', summa);
readln;
end.
program z;
var
a : array[2..21] of integer;
i,summ : integer;
b : array[2..21] of integer;
begin
for i:= 2 to 21 do
begin
a[i]:=i;
end;
for i:=2 to 21 do
begin
if a[i] mod 2 = 0 then
begin
b[i]:=a[i];
end;
end;
summ:=0;
for i:=2 to 21 do
begin
summ:=summ+b[i];
end;
Writeln(summ);
readln;
end.