Потому что каждую минуту, каждый час, день, месяц и год люди узнают и придумывают что-то новое...дальше эта информация передаётся другим людям через устную и письменную речи. Более сообразительные люди начинают воплощать это в мечту или ставят какие то опыты.
Вывод: люди-очень умные существа и любая информация в их голове долго не задерживается :)
Как то так, надеюсь, что я чем то помогла! ;)
1) Масти четыре, значит log2(4) = 2 бита.
2) Один вариант из 32, log2(32) = 5 битов.
1. найти сумму чисел с 1 до n
Program ffff;
Uses crt;
var n,i,s:integer;
begin
writeln ('Кол-во цифр');
readln (n);
for i:=1 to n do
s:=s+i;
writeln (s);
end.
Если сегодня четное число месяца , то я беру с собой на 10 рублей больше чем обычно
Program ffff;
Uses crt;
var n,i:integer;
begin
writeln ('Сколько я беру обычно');
readln (n);
writeln ('Какое сегодня число');
readln (i);
if i mod 2 = 0
then n:=n+10;
writeln (n,' рублей я сегодня беру');
end.
Uses graphabc;
var i,d,v: integer;
begin
for i:=1 to 7 do
begin
SetPenWidth(5);
DrawRectangle(40+d,380-v,600-d,437-v);
d:=d+40;
v:=v+57;
end
end.