Дано:
I = 16 бит = 2 байта
n = 25 кГц = 25 000 Гц
t = 2.5 мин = 150 с
Найти:
V - ?
Решение:
V = I*n*t
V = 2 байта * 25 000 Гц * 150 с = 7 500 000 байт / 1024 ≈ 7 324.2 Кбайта / 1024 ≈ 7.2 Кбайта
Ответ: 7.2 Кбайта
Begin
writeln('Поздравляю с началом учебного года!')
end.
uses crt;
type TRec = Record
FIO: String[20];
TEL: String[7]
end;
var rec: TRec; i:integer;
who:string; flag:boolean;
a: array [1..20] of TRec;
begin
a[1].FIO := 'Иванов Петр';
a[1].TEL := '+374844';
a[2].FIO := 'Крылова Света';
a[2].TEL := '+373129';
a[3].FIO := 'Соловей Иван';
a[3].TEL := '+370929';
//создай дальше до 10 сама
write('Write fio '); readln(who);
for i:=1 to 3 do
begin
if a[i].FIO = who then
begin
writeln('Номер ',who,' = ',a[i].TEL) ;
flag:=true;
end
else
flag:=false;
end;
if flag=false then
writeln('cannot find ',who);
readln;
end.
1.1бит.
2.1байт (так как 1 байт = 8 бит.)
3.1Кбайт (так как 1Кбайт = 1024 байт)
4.1Мбайт (так как 1 Мбайт = 1024 Кбайт)