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.

Тестовое решение:
29
8

0 0

3 года назад

Найти последние пять цифр ответа 14^(2^2015)=

Василий90

56420 Ответ вот такой... Это и есть всё число!)

0 0

4 года назад

Залано целое число меньше тысячи, используя div и mod выведите на экран его последнюю и первую циФру

Ирина ма

Var
n: integer;
begin
readln(n);
writeln('Последняя цифра: ', n mod 10);
while n > 9 do
n := n div 10;
writeln('Первая цифра: ', n);
end.

0 0

4 года назад

составить линейный алгоритм в словестно пошаговой форме

shouka1986

Алоритм приготовления блюда быстрого питания:

1) Высыпать в емкость содержимое пакетика

2) Налить в емкость 200 мл горячей воды

3) Тщательно перемешать

0 0

3 года назад