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
Begin
m:=1;
k:=1;
read(n);
i:=1;
while i<>n do begin
k:=k+i;
m:=m*i;
i:=i+1;
end;
write(k,' ',m);
end.
Переменные, думаю, сами опишете)
1.Типографские литеры определённого размера и рисунка для набора, а также отпечаток их.2.Гарниту́ра<span> в </span>типографике<span> — набор из одного или нескольких </span>шрифтов в одном или нескольких размерах и начертаниях, имеющих стилевое единство рисунка и состоящих из определённого набора типографских знаковформатирование текста<span> — Подготовка текста документа к выводу на печать в необходимой для этого форме. Включает в себя форматирование абзацев, отдельных символов, заголовков, сносок, колонцифр и т.д. </span>.
Def IsPointInCircle(x, y, xc, yc, r):
return (x-xc)*(x-xc)+(y-yc)*(y-yc)<=r*r
x = float(input())
y = float(input())
xc = float(input())
yc = float(input())
r = float(input())
if IsPointInCircle(x, y, xc, yc, r):
print("YES")
else:
print("NO")
Пример:
0.5
0.5
1
1
0.1
NO