Какое количество двоичных разрядов требуется чтобы закодировать 512 байт? какое кол-во двоичных разрядов требуется, чтобы закодировать одну из 64 клеток шахматной доски?
//PascalABC.NET версия 3.2, сборка 1389 //Если программа не запускается, то обновите версию const n = 200;
var primes: array of integer;
begin primes := ArrGen(n, i -> i);
for var i := 2 to round(sqrt(n)) do begin if not (primes.Contains(i)) then continue; var e := SeqWhile(i*i, x -> x + i, x -> x <= n); primes := primes.Except(e).ToArray; end;
writeln('Простые числа < ', n, ':'); writeln(primes); writeln; writeln('Время вычисления: ', Milliseconds / 1000); end.
//Сделал Лугачев Кирилл //Специально для //Все данные вводятся с клавиатуры program Sravnenie; var a, b: integer; // Стороны 1-ого прямоугольника d, c: integer;// Стороны 2-ого прямоугольника S1, S2: integer; // Площадь buf: integer;// Если площадь 1-ого будет меньше 2-ого //поменяем местами,что бы избавиться от минуса razn: integer; // Разница 2-ух площадей
begin Write('Введите стороны 1-ого прямоугольника: '); Readln(a, b);
Write('Введите стороны 2-ого прямоугольника: '); Readln(d, c); S1 := a * b; //Площадь 1-ого S2 := d * c; //Площадь 2-ого if S1 < S2 then begin buf := S1; S1 := S2; S2 := buf; end; razn := S1 - S2; Writeln('Площадь 1-ого больше площади 2-ого в - ',razn, ' раз'); end.
2)64=2^6=6
6+1(цвет клетки)=7