Вот так! Я тебе помог помоги мне дай мне баллов!
<span>На планшете упор делается на то, что бы процессор выделял по минимуму тепло и жрал меньше электричества, если говорить просто то в планшете процессор урезанный! А в ПК стоят полноценные процессоры мощнее,чем на планшете,но и электричества ест много,выделяет много тепла и стоит дороже.</span>
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
[33 / 8] = 4
33 - 4*8 = 1
Десятичное 33 в восьмеричном представлении = 41
Const
N = 50;
Var
M:array[1..N] of longint;
i,Max:integer;
Begin
Randomize;
WriteLn('Цены(в рублях): ');
Max:=1;
For i:= 1 to N do
Begin
M[i]:=random(9900001)+100000;
WriteLn(M[i]);
if M[i] > M[Max] then Max:=i;
End;
WriteLn('Max = ',M[Max]);
End.