var
x, y, R, Oa, Ob: real;
begin
writeln('Введите радиус окружности R');
readln(R);
writeln('Введите координаты центра окружности');
readln(Oa, Ob);
writeln('Введите координаты точки');
readln(x, y);
if (x > (Oa - R)) and (x < (Oa + R)) and (y > (Ob - R)) and (y < (Ob + R)) then
writeln('Точка с заданными координатами лежит внутри круга')
else
writeln('Точка с заданными координатами лежит вне круга');
end.
Если все правильно, отметь решение как лучшее)
Var f1,g1,fn,gn:real;
begin
f1:=1;
g1:=1;
for var i:=2 to 5 do begin
fn:=f1-g1;
gn:=f1+2*g1;
writeln('F(',i,')=',fn,' G(',i,')=',gn);
f1:=fn;
g1:=gn;
end;
writeln('F(5)/G(5)=',fn/gn);
<span>end.
Результат:
F(2)=0 G(2)=3
F(3)=-3 G(3)=6
F(4)=-9 G(4)=9
F(5)=-18 G(5)=9
F(5)/G(5)=-2
</span>
<span>в поиске слова в тексте по заданному образцу преобладает процесс:
</span><span>С. Обработки информации</span>
Var k,x:integer;
begin
readln(x);
k:=0;
while x<>0 do begin
if x mod 2 = 0 then
k:=k+1;
readln(x);
end;
write(k);
readln
end.