program qwerty; uses crt; var a: real; beginclrscr; writeln('введите количество миль'); readln(a); a: = a*1.6; writeln('кол-во киллометров - ',a: 2: 2); readkey; end.
Ответ дал: Гость
у текста, мощностью 64 символа (каждый символ несет 6 бит информации) в 1,2 раза инф. объем больше, чем у текста, мощностью 32 символа (каждый символ несет 5 бит информации).
Ответ дал: Гость
93₁₀ =1011101₂
93 : 2 = 46 (1)
46 : 2 = 23 (0)
23 : 2 = 11 (1)
11 : 2 = 5 (1)
5 : 2 = 2 (1)
2 : 2 = 1 (0)
1 : 2 = 0 (1)
124₁₀ =1111100₂
124 : 2 = 62 (0)
62 : 2 = 31 (0)
31 : 2 = 15 (1)
15 : 2 = 7 (1)
7 : 2 = 3 (1)
3 : 2 = 1 (1)
1 : 2 = 0 (1)
Ответ дал: Гость
program p_1; var i, n : integer; a, s : real; b : array [1..1000] of real; begin writeln('введите число а'); readln(a); writeln('введите количество значений массива n'); readln(n); write('введите элементы массива b'); for i: =1 to n do readln(b[i]); writeln('первоначальный массив b'); for i: =1 to n do writeln(b[i]); s: =0; for i: =1 to n do if b[i] > a then s: =s+b[i]; writeln('сумма значений =', s); end.
Популярные вопросы