Var a,b,c,r,d1,d2,d3:real;
begin
writeln('Введи радиус иллюминатора и размеры сундука');
readln(r,a,b,c);
d1:=sqrt(sqr(a)+sqr(b));
d2:=sqrt(sqr(a)+sqr(c));
d3:=sqrt(sqr(b)+sqr(c));
writeln('Диагонали сундука: d1=', d1,' d2=',d2,' d3=',d3,' Диаметр окна: ',2*r);
if (d1<r*2)or(d2<r*2)or(d3<r*2) then writeln('Сундук пройдёт') else writeln('Сундук не пройдёт');
end.
Var n,i:integer; s:real;
begin
readln(n);
s:=0;
for i:=0 to n do s:=s+1/(2*i+1);
writeln('s = ',s);
end.
Пример:
5
<span>s = 1.878210678210678e+00</span>
Этот значок обозначает возведение в степень
Ответ:
b = 3
Объяснение:
Нужно подобрать такое число b, чтобы уравнение
13b² +1 = 118 было верно,
Приведём к красивому виду:
13b² = 117 Поделим обе части на 13
b² = 9 и решим
2 корня
b₁= 3 и b₂ = -3
Подходит лишь первый по условию