aeykin
?>

Вкорзине лежат красные и желтые шары красных шаров 14. сообщение о том что достали жёлтый шар несёт 3 бита информации. сколько всего шаров в корзине? ​

Информатика

Ответы

mikhailkirakosyan
Можешь "включить" подробный вывод, если объявишь макрос "#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);
            }
        }
    }
}
rinan2013
// 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.

Тестовое решение:
Введите через пробел 10 целых чисел
24 137 -53 46 0 -18 35 2 352 1111
Нечетные числа: 137 -53 35 1111

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Вкорзине лежат красные и желтые шары красных шаров 14. сообщение о том что достали жёлтый шар несёт 3 бита информации. сколько всего шаров в корзине? ​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Narine natalya
Ekaterina1654
yurazharov
kulturarai44
Игоревна
Delyaginmikhail
natalia595977
turaev-1098
zdanovich90764
jurys71242
kristina1989
Павловна897
Ligacom
ev27076878
Староческуль-Станиславовна