1)а - из учебника.
2) 2 Тб = 2×1024 Гб = 2×1024×1024 Мб - ответ<span>b
3)</span>7 мбит = 7×1000 Кбит = 7000кбит
4) 136/8 = 17
Сами программы не проверял, если они правильные, то
2)
program zak; uses crt;
type danie=record
litri:string;
cislo:string;
end;
DanieVodi=file of danie;
var DV:DanieVodi;
D:danie;
i,n:integer;
begin clrscr;
assign(DV,'d:\azaz.txt');
rewrite(DV);
repeat
writeln('BBeDuTe 4ucJlo u Mec9lTc oTTDeJl9l9l To4Kou'); readln(D.cislo);
writeln('BBeDuTe KoJlu4ecTBo IIoTpa4eHou BoDbl');
readln(D.litri);
if D<>'stop' then write(DV,D);
until D='stop';
close(DV);
readln;
<span>end.
</span>
1)
uses crt;
type danie=record
litri:string;
cislo:string;
<span><em>max,min:real;</em></span>
end;
DannieVodi=file of danie;
var DV:DannieVodi;
D:danie;
i,n:integer;
cislo1:string;
begin clrscr;
assign(DV,'d:\azaz.txt');
reset(DV);
write('BBeDuTe 4ucJlo u Mec9lTc oTTDeJl9l9l To4Kou:');
read(cislo1);
while not eof(dv) do
begin
read(DV,D);
if min='0' then min:=StrToFloat(D.cislo)<span>;
</span>if StrToFloat(D.cislo)<min then min:=StrToFloat(D.cislo);
<span>if StrToFloat(D.cislo)>max then max:=StrToFloat(D.cislo);
</span>
if cislo1=D.cislo then
writeln('6blJlo IIoTpa4eHo "',D.litri,'" JluTpoB BoDbi');
end;
writeln('min=',min);
<span>wtiteln('max=',max);
</span>
close(DV);
readln;
end.
Если это не учебная задача, то лучше сделать ее в Access. Там интерфейс красивый и дружелюбный легко получить.
Если длина ребра именно равна 2 (a=2), то решаем так:
begin
Writeln(2*2*2,' ', 2*2); //Первое число - объём куба, второе - площадь боковой поверхности
end.
А если нам следует ввести значение a, то решаем так:
var a:int64;
begin
read(a);
Writeln(a*a*a,' ', a*a); //Первое число - объём куба, второе - площадь боковой поверхности
end.
Самый громкий звук
Самый громкий звук на свете издает.. креветка.
Шум "слоя креветок" - единственный из всех естественных шумов, способный "ослепить" сонар подводной лодки, оглушив акустика сквозь наушники.
Уровень шума, производимого скопищем креветок, доходит до оглушительных 246 децибел. Даже с учетом того, что звук в воде распространяется быстрее, он приравнивается к 160 децибелам в воздухе - гораздо громче, чем шум при взлете реактивного самолета (140 дБ) или порог болевой чувствительности человека.
Источником шума являются триллионы креветок, одновременно щелкающие своей "негабаритной" клешней. Щелкающие креветки, представители разнообразных видов Alpheus и Synalpheus, встречаются в неглубоких водах тропиков и субтропиков.
if (money==200000) Console.WriteLine("Ваша процентная ставка составит 13,5% в год")
if (money>=350000) Console.WriteLine("Ваша процентная ставка составит 14,2% в год")