#include <iostream>
#include <algorithm>
using namespace std;
string func(int n, int k){
string s;
while(n > 0){
if(n % k < 10) s += (n % k) + '0';
else s += (n % k - 10) + 'A';
n /= k;
}
reverse(s.begin(), s.end());
return s;
}
int main() {
int N;
cin >> N;
int a[3] = {2, 8, 16};
for(auto &i : a)
cout << "Number " << N << " in the notation with a base " << i << " equals to " << func(N, i) << "\n";
}
Shared Sub Main(args As String())
Dim n As Integer = Integer.Parse(Console.ReadLine())
Dim p As Single = 1
Dim i As Integer = 1
While i <= n
Dim a As Single = 2 * i
Dim b As Single = 2 * i + 1
p *= a / b
i += 1
End While
Console.WriteLine(p)
End Sub
Объяснение:
Объяснение по стокам:
2. Считать n с консоли
3. p - переменная с результатом
4. i - переменная для цикла
5-10. цикл - основная часть программы
6-7. Числитель и знаменатель соответсвенно.
8. Умножить результат на новую дробь
9. Увеличить счетчик цикла
11. Вывести результат
Программа:
var R1, R2, R3, R: real;
begin
write('Введите сопротивления R1, R2, R3 (в Ом): ');
read(R1, R2, R3);
R := 1 / (1 / R1 + 1 / R2 + 1 / R3);
writeln('Полное сопротивление цепи ', R:0:3, ' Ом');
end.
2.
Программа:
const g = 9.8;
var h, t: real;
begin
writeln('Введите высоту h (в м): ');
read(h);
t := sqrt(2 * h / g);
writeln('Время падения ', t : 0 : 3, ' с');
end.
Блок-схемы в приложении: