Сколько бит информации содержит сообщение объёмом 32 терабайт. Очень нужно пожалуйста помогите

Знания

Информатика

1 ответ:

Катька204 года назад

0 0

32*1024*1024*8=268435456 бит

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

Помогите пожалуйста ооочень срочно 30б

elisdorrian

1)program wk;
var x,y:real;
begin
Writeln('Введите x');
Readln(x);
y:=x-(x*x*x)/3+(x*x*x*x*x)/5;
Writeln('y =',y)
end.
2)program wk2;
var x,y:real;
begin
Writeln('Введите x');
Readln(x);
y:=x/2- Cos(x)+ Sin(2*x);
Writeln('y =',y)
end.
3)program wk3;
var x,y:real;begin
Writeln('Введите x');
Readln(x);
y:=(x*x-7*x+10)/(x*x-8*x+12);
Writeln('y =',y)
end.
4)program wk4;
var x,y:real;begin
Writeln('Введите x');
Readln(x);
y:=x-10*Sin(x)+Abs(x*x*x*x-x*x*x*x*x);
Writeln('y =',y)
end.

0 0

4 года назад

Нужно составить блок-схему по программе Program Lab1; const n = 20; var a: array[1..n] of byte; i, imin: byte; begin writeln('

алла 5

FCEditor разгрузит тебе работу, вот 2 раз и схема готова.

0 0

1 год назад

Помогите с информатикой номер 3 б

snero333 [52]

(x-2) / (abs(x)+2*a)

0 0

4 года назад

ИНФОРМАТИКА 8 КЛАСС ПОМОГИТЕ НА УРОВНЕ 8 КЛАССА! Составьте алгоритм возведения четного числа в квадрат ,а нечетного к куб. С пом

quelle999

Var a:integer;
begin
readln(a);
if a mod 2=0 then a:=a*a
else a:=a*a*a;
writeln('a = ',a);
end.

Пример:
18
a = 324

0 0

4 года назад

Найдите сумму квадратов всех целых чисел от а до 10. Значение а вводится с клавиатуры. Предусмотрите проверку корректности ввода

Butcher [10]

// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var a:=ReadInteger('Введите целое число, не превышающее 9:');
if a<10 then Writeln('S2=',Range(a,10).Select(i->i*i).Sum)
else Writeln('Введенное значение больше 9')
end.

Тестовое решение
Введите целое число, не превышающее 9: -7
S2=525

0 0

4 года назад