Вкорзине лежат красные и желтые шары красных шаров 14. сообщение о том что достали жёлтый шар несёт 3 бита информации. сколько всего шаров в корзине?
Можешь "включить" подробный вывод, если объявишь макрос "#define DEBUG"
using System; using System.Collections.Generic; using System.Linq; using System.Text; namespace cool{ class main { static void Main(string[] args) { int u1 = 1, u2 = 2; int l1 = 1, l2 = 1; double a = 0, eps = 0.001; int i = 2; int U, L; double A;
U = u2 + u1; L = l2 + l1; A = (double)U / L;
while (Math.Abs(A - a) > eps || i < 5) { a = A; i++; l1 = l2; u1 = u2; l2 = L; u2 = U;
U = u2 + l2; L = l2 + l1; A = (double)U / L;
#if DEBUG Console.WriteLine("{0} -> {1}|{2}", i, U, L); #endif if (i == 5) Console.WriteLine("Пятый элемент: {0}", A); if (Math.Abs(A - a) < eps) Console.WriteLine("Элемент, отличающийся на менее чем {1}: {0}", A, eps); } } } }
// PascalABC.NET 3.0, сборка 1088 const n=10; // количество вводимых чмсел var a:array[1..n] of integer; i,k,t:integer; begin Writeln('Введите через пробел ',n,' целых чисел'); k:=0; for i:=1 to n do begin Read(t); if Odd(t) then begin Inc(k); a[k]:=t end end; if k>0 then begin Write('Нечетные числа: '); for i:=1 to k do Write(a[i],' '); Writeln end else Writeln('Все введенные числа - четные') end.
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace cool{
class main
{
static void Main(string[] args)
{
int u1 = 1, u2 = 2;
int l1 = 1, l2 = 1;
double a = 0, eps = 0.001;
int i = 2;
int U, L;
double A;
U = u2 + u1;
L = l2 + l1;
A = (double)U / L;
while (Math.Abs(A - a) > eps || i < 5)
{
a = A;
i++;
l1 = l2; u1 = u2;
l2 = L; u2 = U;
U = u2 + l2;
L = l2 + l1;
A = (double)U / L;
#if DEBUG
Console.WriteLine("{0} -> {1}|{2}", i, U, L);
#endif
if (i == 5)
Console.WriteLine("Пятый элемент: {0}", A);
if (Math.Abs(A - a) < eps)
Console.WriteLine("Элемент, отличающийся на менее чем {1}: {0}", A, eps);
}
}
}
}