Var
hay:longint; { количество стогов сена }
eaten:longint; { количество съеденных стогов }
procedure Eat(var n:longint);
{ съесть 4 стога }
begin n:=n-4; eaten:=eaten+4 end;
procedure Sheep(n:longint);
{ овечка, которой передано n стогов сена }
begin
if n>=4 then begin
if (n mod 5)=0 then begin
n:=n div 5;
Sheep(n);
Sheep(3*n)
end
else begin
Eat(n);
Sheep(n)
end
end
end;
begin
Readln(hay);
eaten:=0;
Sheep(hay);
Writeln(eaten)
end.
<em><u>Тестовое решение:</u></em>
29
8
12,7 * (600/2,54) = 3000 пикс ширина
12,7 * (1200/2,54) = 6000 пикс высота
3000 * 6000 * 4 = 72000000 бит / 8 / 1024 / 1024 = ~ 8 мегабайт
//Я так понял, что нужно объеденить 2 массива в 1 большой. Если же нужно, чтобы каждый элемент третьего массива состоял из суммы элементов с такии же индексом двух предыдущих массивов, то нужен другой код
Program Test;
const Size = 5; x = 1; y = 10;
Var i, j, Entered: integer; Arr1: array[1..Size] of integer; Arr2: array[1..Size] of integer; Arr3: array[1..Size * 2] of integer;
Begin
Randomize;
j := 0;
for i := 1 to Size do
begin
Arr1[i] := Random(x, y);
Arr2[i] := Random(x, y);
end;
for i := 1 to Size * 2 do
begin
if (i <= Size) then
Arr3[i] := Arr1[i]
else
begin
j := j + 1;
Arr3[i] := Arr2[j];
end;
end;
Write('Показать 1 массив? Если да, то введи 1: ');
Readln(Entered);
if (Entered = 1) then
begin
Writeln();
for i := 1 to Size do
Writeln('Элемент ', i, ' = ', Arr1[i]);
end;
Writeln();
Entered := 0;
Write('Показать 2 массив? Если да, то введи 2: ');
Readln(Entered);
if (Entered = 2) then
begin
Writeln();
for i := 1 to Size do
Writeln('Элемент ', i, ' = ', Arr2[i]);
end;
Writeln();
Writeln('Суммарный массив:');
Writeln();
for i := 1 to Size * 2 do
Writeln('Элемент ', i, ' = ', Arr3[i]);
End.
Алгоритм 21211
вычти 1: 27-1=26
раздели на 2: 26/2=13
вычти 1: 13-1=12
раздели на 2: 12/2=6
раздели на 2: 6/2=3
Ответ: 21211
Ответ:
Принцип печати
Струйный(наносится краска микроструйками, которая высыхает в течении 1 мин.) Лазерный(образуется электромагнитное поле, которое притягивает порошковую краску)
Достоинства
Струйный(стоимость низкая). Лазерный( качество и скорость печати)
Недостатки
Струйный(размываемость текста). Лазерный(высокая стоимость)
Представитель
Струйный(HP).Лазерный( HP)
Разрешение
Струйный(401р).Лазерный(801р)
Скорость печати
Струйный(10) Лазерный(30)
Объём встроенной памяти
Струйный(256) Лазерный (1024)
Форма бумаги
Струйный( до А4) Лазерный( до А4)
Цена
Струйный(1500р)
Лазерный (от 4500р.)