<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function ДробьНесократима(Чис,Знам:integer):boolean;
begin
while Знам<>0 do begin Чис:=Чис mod Знам; Swap(Чис,Знам) end;
Result:=Чис=1
end;
begin
for var Знаменатель:=2 to 7 do
for var Числитель:=1 to Знаменатель-1 do
if ДробьНесократима(Числитель,Знаменатель) then
Write(Числитель,'/',Знаменатель,' ');
Writeln
end.
<u>Результат</u>
1/2 1/3 2/3 1/4 3/4 1/5 2/5 3/5 4/5 1/6 5/6 1/7 2/7 3/7 4/7 5/7 6/7
#include <iostream>
using namespace std;
int main()
{
int n;
double t = 1;
cout << "input n: ";
cin >> n;
for (int i = 1; i <= n; i++) {
t = t * (((2 * i) - 1)) / i;
}
cout << t << endl;
}
<u>Проверка:</u>
1/1 * (3/2) * (5/3) = 2.5
1/1 * (3/2) * (5/3) * (7/4) * (9/5) = 7.87500
1. Очень просто. Информационный вес знака - это логарифм по основанию 2 от количества знаков в алфавите.
2. В Unicode каждый символ занимает 2 байта. Если в строке 80 символов, а строк 25, на это нужно 80×25×2 = 4000 байт.
3. Слой для записи намагничивается пишущей головкой, положение пишущей головки управляется лазером.
Здесь программа и получившиеся значения :)