Program 1; var n,k2,k5,i,a:integer; begin write('n='); read(n); k2:=0;k5:=0; for i:=2 to n do begin a:=i; if a mod 2=0 then while a>=2 do begin a:=a div 2; k2:=k2+1; end; a:=i; if a mod 5=0 then while a>=5 do begin a:=a div 5; k5:=k5+1; end; end; if k2<k5 then write(k2) else write(k5); readln end.
Узнаем количество символов данной статьи. Для этого умножим 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 лет и прямая связь с мозгом, и ИИ уровня человека (или чуть повыше) вполне могут стать обыденностью, как это сейчас и произошло с Айфонами и интернетом.
Воот. Мне определенно следует меньше читать Тима Урбана...
var n,k2,k5,i,a:integer;
begin
write('n=');
read(n);
k2:=0;k5:=0;
for i:=2 to n do begin a:=i;
if a mod 2=0 then while a>=2 do
begin
a:=a div 2;
k2:=k2+1;
end;
a:=i;
if a mod 5=0 then while a>=5 do begin a:=a div 5;
k5:=k5+1; end; end;
if k2<k5 then write(k2) else
write(k5);
readln
end.