Sub Iter()
Dim s As Double, pi As Double, e As Double, a As Double
Dim i As Long, znak As Integer, k As Long
e = InputBox("введите значение eps")
pi = 4 * Atn(1)
s = pi
i = 2
znak = 1
k = 0
a = Tan(pi / (2 * i))
Do While a >= e
s = s + znak * a
i = i + 1
a = Tan(pi / (2 * i))
znak = -znak
k = k + 1
Loop
MsgBox "Сумма равна " + Str(s) + ", количество слагаемых " + Str(k)
End Sub
Да, сможет, тк 2 взрослых, а пони может покатать 3 взрослых, следовательно 2 ребенка это как 1 взрослый.
решение если нужно
6:3=2=> 2 ребенка как 1 человек
2+1=3
пони может вынести 3 взрослых а значит они все смогут покататься.
<h3>PascalABC.NET 3.4.2, сборка 1861 от 09.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var s:=ReadLines('data.txt').First.Select(t->t.ToDigit)
.Aggregate(BigInteger(1),(a,b)->a*b).Println
end.
<h2>Пример</h2>
10057531504895395788703629698793031096713606951075840000000000000
<h3>Файл data.txt дан во вложении</h3>
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var s1 := ReadlnString;
var s2 := ReadlnString;
var s3 := s1 + s2;
Println('Конкатенация:', s3);
Println('Длина равна ', s3.Length);
if s1 = s2 then Println('Строки совпадают')
else Println('Строки не совпадают')
end.
<h2>Абракадабра</h2><h2>Абракодабра</h2><h2>Конкатенация: АбракадабраАбракодабра </h2><h2>Длина равна 22 </h2><h2>Строки не совпадают </h2>