По моим рассуждениям это: 3)7, была бы норм фотка то точно бы сказал.
1)
const eps=0.5e-6;
var x,xn,a0,a1:real;
begin
readln(x,a0);
xn:=1;
while abs(a0-a1)>=eps do
begin
a0:=a1;
xn:=x*xn;
a1:=sin(1+a0*a0*a0)/xn;
end;
writeln(a1);
end.
2)
const eps=0.5e-6;
var x,xn,a0,a1:real;
begin
readln(x,a0);
xn:=1;
repeat
a0:=a1;
xn:=x*xn;
a1:=sin(1+a0*a0*a0)/xn;
until abs(a0-a1)<eps;
writeln(a1);
end.
Пример:
1.2 0.9
<span> 2.41185904021433E-006</span>
Program z1;
var d1,d2,a :integer;
r1,r2:real;
begin
writeln('Введите диаметры');
readln(d1,d2);
r1:=d1/2;
r2:=d2/2;
if r1>r2 then
p:=pi*sqr(r1)-pi*sqr(r2);
writeln('первая окружность-внешняя, p=',p:8:3);
else
p:=pi*sqr(r2)-pi*sqr(r1);
writeln('вторая окружность-внешняя, p=',p:8:3);
end.
Дискретность это значит <span>прерывность. Каждое действие, исполняется только после того, как закончилось исполнение предыдущего.</span>