Var
a,s:integer;
begin
s:=0;
repeat
readln(a);
s:=s+a;
until a=0;
writeln('Сумма чисел: ',s);
<span>end</span>
запишем условие: страниц=1264, строк=85, символов=70, i=8 бит M-?
решение: вычислим общее количество символов в тексте
K=1264*85*70=752080
вычислим информационный объем текста I=K*i=7520800*8=60166400 бит=7344.53 Кб =7.17Мб
Разделим объем диска на информационный объем 1 копии романа и узнаем кол-во копий на диске
М=700/7,17=97 копий это и есть ответ
Либо одна собака (4 лапы) и три курицы (6 лап), либо две собаки (8 лап) и одна курица (2 лапы)
Var a:string;i,s:integer;
begin
read (a);
for i:=1 to length(s) do
begin
s:=s+i;
write (s);
end;
end.
Итак, нужно найти число групп, в каждой из которых ни одно из чисел не делит все остальные.
Строим группы так:
(1) - 1
(2) - 2, 3, 5, 7, 11, 13... - все простые
(3) - 4, 6, 9, 10, 14, 15... - произведения двух простых
...
(k) - произведения (k - 1) простых
И так пока не кончатся все числа. Поскольку в каждой группе наименьшее число 2^(k - 1), то k - минимальное, для которого 2^(k - 1) > N
По построению явно во всех группах ни одно число не делится на другое. Осталось проверить, что получено минимальное число групп.
Это очевидно: числа 1, 2, 4, ..., 2^(k-1) должны быть в разных группах.
Решение:
n = int(input())
t = 1
k = 0
while t <= n:
t *= 2
k += 1
print(k)