Расшифруйте анаграмму по информатике Vitrage sāps
Перестаньте буквы местами чтобы получились правильные два слова

👇

Увидеть ответ

Ответ:

Brain111t

11.07.2020

Give parts

Язык анаграммы не указан, воспользуйтесь сайтом, если ответ неверный:

https://ingesanagram.appspot.com/

4,6(99 оценок)

Открыть все ответы

Ответ:

JukovaEleonora

11.07.2020

Ну, в общем, лови решение.

{ FreePascal 2.6.4}
program test;
uses
    crt;
var
    a, b, c, d : integer;
    f : longint;

procedure swap (var x : integer; var y : integer);
var z : integer;
begin
    z := x;
    x := y;
    y := z;
end;

function nod (m, n : integer) : integer;
begin
    while m<>n do begin
        if m>n
        then
            m:=m-n
        else
            n:=n-m;
    end;
    nod := m;
end;

function max (a,b : integer) : integer;
begin
    if a>b
    then max := a
    else max := b;
end;

function min (x, y, z : integer) : integer;
var m : integer;
begin
    m := x;
    if y<m then m := y;
    if z<m then m := z;
    min := m;
end;

function mypow (a, b : integer) : integer;
var e, f : integer;
begin
    f := 1;
    for e:=1 to b do f := f*a;
    mypow := f;
end;

function fact(a : integer) : longint;
var
    i : integer;
    res : longint;
begin
    res := 1;
    for i := 1 to a do res := res*i;
    fact := res;
end;

begin
    clrscr;
    writeln('Test of function SWAP');
    write('Input A: ');
    readln(a);
    write('Input B: ');
    readln(b);
    swap(a, b);
    writeln('A=', a, ', B=', b);
    writeln;

    writeln('Test of function NOD');
    write('Input A: ');
    readln(a);
    write('Input B: ');
    readln(b);
    c := nod(a, b);
    writeln('NOD(', a, ',', b, ')=', c);
    writeln;

    writeln('Test of function MAX');
    write('Input A: ');
    readln(a);
    write('Input B: ');
    readln(b);
    c := max(a, b);
    writeln('MAX(', a, ',', b, ')=', c);
    writeln;

    writeln('Test of function MIN');
    write('Input A: ');
    readln(a);
    write('Input B: ');
    readln(b);
    write('Input C: ');
    readln(c);
    d := min(a, b, c);
    writeln('MIN(', a, ',', b, ',', c, ')=', d);
    writeln;

    writeln('Test of function POW');
    write('Input A: ');
    readln(a);
    write('Input B: ');
    readln(b);
    c := mypow(a, b);
    writeln('POW(', a, ',', b, ')=', c);
    writeln;

    writeln ('Test of function FACT (not large than 12!)');
    write('Input A: ');
    readln(a);
    f := fact(a);
    writeln(a, '!=', f);
    writeln;
    readkey;

end.

4,6(4 оценок)

Ответ:

Fissadi

11.07.2020

Чтобы узнать размер одной секунды звукового файла нужно глубину кодирования умножить на количество измерений в 1 секунду:
Глубину кодирования можно определить через количество уровней. Их количество равно 2^n, где n - глубина кодирования. 16=2^n n=4
информационный объем 1 секунды = 128 000*4*1=512 000бит=62,5 Кбайт.

Узнаем объем картинки. В 256-цветной палитре 1 пиксель = 8 бит.
16384 пикселя*8 бит=131 072бит=16 кбайт

Т.к. Дима скачивал граф. файл с Иваном, значит, скорость=2Кб/с
Время скачивания=16/2=8с
Значит остальные 68-8=60с музыкальный файл скачевался со скоростью 4кб/с.
Общий объем муз. файла=60с*4кб/с+8с*2кб/с=256кбайт
Длительность муз.файла=256/62,5=4с

4,6(6 оценок)

Это интересно:

Хобби-и-рукоделие

24.11.2021

Как научиться делать квиллинг: все, что нужно знать...

13.07.2021

Как заново обрести себя и начать жить полноценной жизнью?...

Компьютеры-и-электроника

24.10.2022

Как получить высококачественный звук с помощью Audacity...

Образование-и-коммуникации

14.03.2023