Var a,b:integer;
begin;
b:=1;
a:=1;
while a<>0 do
begin;
readln(a);
if a=0 then break;
b:=b*a;
end;
writeln(b);
<span>end.</span>
// Не скажу что оптимально но работает
uses
DrawMan;
const
c_x = 8;
c_y = 8;
var
xi, yi, h: integer;
procedure one_star(x, y, r: integer);
var
xi, yi, step: integer;
begin
step := r div 4;
for xi := -1 to 1 do
for yi := -1 to 1 do
begin
if (xi * yi <> 0) or (xi + yi = 0) then
continue;
ToPoint(x, y);
PenDown;
ToPoint(x + xi * 4 * step, y + yi * 4 * step);
PenUp;
// stop;
ToPoint(x + yi * step, y + xi * step);
PenDown;
ToPoint(x + xi * 4 * step, y + yi * 4 * step);
PenUp;
ToPoint(x - yi * step, y - xi * step);
PenDown;
ToPoint(x + xi * 4 * step, y + yi * 4 * step);
PenUp;
ToPoint(x + yi * 2 * step, y + xi * 2 * step);
PenDown;
ToPoint(x + xi * 3 * step, y + yi * 3 * step);
PenUp;
ToPoint(x - yi * 2 * step, y + xi * 2 * step);
PenDown;
ToPoint(x - xi * 3 * step, y - yi * 3 * step);
PenUp;
ToPoint(x + yi * 2 * step, y - xi * 2 * step);
PenDown;
ToPoint(x - xi * 3 * step, y - yi * 3 * step);
PenUp;
end;
end;
begin
Field(2 * c_x, 2 * c_y);
h := c_x div 2;
for xi := -1 to 1 do
for yi := -1 to 1 do
begin
if (xi * yi <> 0) or (xi + yi = 0) then
continue;
one_star(c_x + xi * h, c_y + yi * h, h);
end;
end.
Деревья . Они в результате фотосинтеза выделяют кислород и забирают себе угл газ
Около 15 дней.
Если посчитать сколько каждый вирус в день повреждает, можно высчитать сумму сколько места съедают все вирусы в день.
А=34мб
Б=17мб
С=11мб
Д=5,6мб
Все они в сумме съедают в день 68мб в день. Делим 1гб (1024 мб) на 68 мб.
1024:68=15
Ответ:
71₁₀ = 1*2⁰ + 1*2¹ + 1*2² + 0*2³ + 0*2⁴ + 0*2⁵ + 1*2⁶ = 1000111₂
1000111₂ - три нуля