Var i:integer;
begin
i := 30;
while (i >= 1) do
begin
if (i mod 2 = 1) then
writeln(i);
i := i - 1;
end;
<span>end.
----------------
2)
var i, a: integer;
begin
for i:=0 to 30 do
if (i mod 2 = 1) then
a := a + i;
writeln(a);
end.
<span>------------
Удачи:)</span></span>
Заполненная таблица в приложении.
отчисления на рекламу скопировать и вставить с транспонированием, тогда строка превращается в столбец.
10₄=4₁₀=2²₁₀, тогда в первой скобке 2³ возводится в 301 степень, т.е. получается 2⁹⁰³
100₂=4₁₀=2²₁₀ и при возведении в степень получим 2¹²⁰⁰⁰
8₁₀=2³₁₀ и при возведении в степень 229 получим 2⁶⁸⁷
13₁₀=1101₂
Если рассматривать первые три слагаемых как запись некоторого двоичного числа в развернутой форме, то она будет означать , что в этой записи единицы стоят на месте с разрядами 12000, 903 и 687, а все остальные нули. Теперь если выполнить вычитание двоичных чисел столбиком, то получим:
100...00100...00100...00000₂
₋ 1101₂
_________________________
100...00100...00011...10011₂, т.е. одна 1 на 12000 месте, одна 1 на 903 месте, 683 единицы начиная с 686 по 4 место включительно, и еще две единицы в конце записи, итого 683+1+1+2=687 единиц в записи числа
Как то так
Подобное действие приведет к тому, что операционная система не сможет определить приложение для открытия данного файла, что собственно говоря равносильно потере информации из этого файла для пользователя. Все, что ему останется - это подбирать приложения наугад. Значок файла при этом также изменится на неопределенный
4194304000:8=524288000байт
524288000:1024=512000кб
512000:1024=500мб
Ответ 500 мегабайтов
.
