Все категории

4 года назад

Сочините пожалуйста сказку о единицах измерения информации

Знания

Информатика

1 ответ:

Пицц4 года назад

0 0

В три десятом царстве в неком тексте был народ килобайт было внем семей 1024. Каждую семью звали байт .В каждой семье жило 8 бит .

Читайте также

TurboPascal дан массив c15 определите количество нечетных чисел составить программу

НикитаКа

Const n=15;
var c:array[1..n] of integer;
k,i:integer;
begin
Randomize;
for i:=1 to n do begin
c[i]:=random(51);
write(c[i],' ');
end;
writeln;
k:=0;
for i:=1 to n do
if c[i] mod 2<>0 then k:=k+1;
writeln('k = ',k);
end.

Пример:
<span>34 45 49 29 19 18 20 29 10 13 35 24 48 42 20
k = 7</span>

0 0

3 года назад

1 сообщение занимает 1000 байт, 2 сообщение 192 бита. сколько кбайт занимают эти сообщения

Юленькаааааа [87]

Ответ:

(1000+192)÷1 024=1,1640625кбайт

0 0

4 года назад

Сколько различных символов можно закодировать 11-ти разрядными битовыми комбинациями?

ГеоргийС

Ответ 2 в степени 11 штук.

0 0

4 года назад

Здесь кто-нибудь умеет писать коды на Visual Basic?

ВВальдемар

Дано целое число М. Определить делиться ли М нацело на 9. Сумма цифр М должна делиться нацело на 9
Ответ в приложении.
https://goo.gl/mrQGvq

0 0

4 года назад

Сделайте задание ABSпаскал) Даю 35 баллов

histed

Надеюсь я правильно понял суть заданий.

Номер 1.

Program n_1;

var a: integer; b:double;

begin

readln(a);

b:=(a mod 10 + a div 10)/2;

writeln(b:0:1);

end.

Номер 2.

Program n_2;

var a: integer;

begin

readln(a);

a:=a div 10 - a mod 10;

writeln(a);

end.

Номер 3.

Program n_3;

var a, b: integer;

begin

readln(a);

b:=a div 1000;

a:=a - a div 1000 * 1000;

writeln(b , ' кг ', a, ' г');

end.

Номер 4.

Program n_4;

var a: int64;

begin

readln(a);

writeln(a div 10000, ' км^2');

end.

0 0

4 года назад