Uses crt;
var a,b,s:real;
BEGIN
clrscr;
Writeln('Vvedite chislo a: ');
Readln(a);
Writeln('Vvedite chislo b: ');
Readln(b);
If b=0 then Writeln('Popytka delit na 0!');
S:=a/b;
Writeln('',a,' / ',b,' = ',s);
readln;
<span>END.</span>
64 семериковSSефим хорошистбит в секунду - единица измерения скорости передачи информации.
байт в секунду - скорость передачи файлов в менеджерах закачки.
байт в секунду — Б/c (Bps
килобайт в секунду — кБ/c (KBps)
мегабайт в секунду — мБ/c (MBps)
гигабайт в секунду — гБ/c (GBps)
Основы:
кило = 1.000 (103)
мега = 1.000.000 (106)
гига = 1.000.000.000 (109)
Байты:
1 кБайт = 1 024 Байт
1 мБайт = 1 048 576 Байт (1 024 * 1 024)
1 гБайт = 1 073 741 824 Байт (1 024 * 1 024 * 1 024)
1 тБайт = 1 099 511 627 776 Байт (1 024 * 1 024 * 1 024 * 1 024)
Биты:
1 кбит = 1 024 бита
1 мбит = 1 048 576 бит
1 гбит = 1 073 741 824 бита
Расчёт:
Байты в биты:
1 Байт (октет) = 8 бит
1 кБайт (1 024 Байт) = 8 192 бит = 8 кбит
1 мБайт (1 048 576 Байт) = 8 388 608 бит = 8 192 кбита = 8 мбит
1 гБайт (1 073 741 824 Байт) = 8 589 934 592 бита = 8 388 608 кбит = 8 192 мбита = 8 гбит
Пример:
1 гБайт (1 024 * 1 024 * 1 024) * 8 = 8 589 934 592 бита далее
8 589 934 592 : 1024 = 8 388 608 кбит далее
8 388 608 : 1024 = 8 192 мбита далее
8 192 : 1024 = 8 гбит
Для ясности:
1 кБайт = 8 кбит
1 мБайт = 8 мбит
1 гБайт = 8 гбит
биты в Байты:
1 кбит (1 024 бита) = 128 Байт = 0,125 кБайта
1 мбит (1 048 576 бит) = 131 072 Байта = 128 кБайт = 0,125 мБайта
1 гбит (1 073 741 824 бита) = 134 217 728 Байт = 131072 кБайта = 128 мБайт = 0,125 гБайта
Пример:
1 гбит (1 024 * 1 024 * 1 024) : 8 = 134 217 728 Байт далее
134 217 728 Байт : 1024 = 131072 кБайта далее
131072 кБайта : 1024 = 128 мБайт далее
128 мБайт : 1024 = 0,125 гБайта
Для ясности:
1 бит = 0,125 Байта
1 кбит = 0,125 кБайта
1 мбит = 0,125 мБайта
1 гбит = 0,125 гБайта
Теория:
Что бы перевести Байты в биты надо умножить на 8
Что бы перевести биты в Байты надо делить на 8
Что бы перевести в большую степень б >> кило >> мега >> гига и. т. д надо делить на 1 024
<span>Что бы перевести в меньшую степень гига >> мега >> кило >> б надо умножать на 1 024</span>
<em>// PascalABC.NET 3.2, сборка 1488 от 21.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>№4</u>
begin
var F:=ArrRandom(100,-50,50); F.Println;
Writeln('Сумма отрицательных элементов: ',F.Where(x->x<0).Sum)
end.
<u>Пример</u>
16 -23 -23 -31 0 -24 44 9 18 -48 26 27 24 8 -41 -37 35 -15 -36 8 -32 -3 -47 39 48 -4 45 -39 -1 -23 15 -44 26 21 -22 49 10 49 41 -29 23 -9 21 25 41 -13 17 19 -27 -49 -20 -46 43 8 -25 -32 -26 -11 -29 -47 -19 33 -40 -10 -12 19 -49 -48 -21 -39 4 37 -6 43 36 28 27 -22 49 10 29 -24 39 -3 48 11 -36 -33 -4 -40 25 -30 27 37 41 40 -20 -20 -13 -29
Сумма отрицательных элементов: -1374
<u>№5</u>
begin
var С:=ArrRandom(50,-10,10); С.Println;
Writeln('Сумма положительных элементов до первого нуля: ',
С.Where(x->x>=0).TakeWhile(x->x<>0).Sum)
end.
<u>Пример</u>
9 -5 -6 8 -6 -6 2 -10 1 -2 10 1 -7 -1 7 -1 0 -5 2 0 5 10 -10 6 -3 -9 -7 -2 9 -5 10 5 -8 4 5 -6 6 -7 -10 -6 -1 -9 -10 10 2 6 -3 7 -8 6
Сумма положительных элементов до первого нуля: 38
<u>№6</u>
begin
var C:=ArrRandom(20,-50,50); C.Println;
var D:=C.Where(x->x>0).ToArray; D.Println
end.
<u>Пример</u>
-38 -34 -49 -21 1 -1 -7 -44 -43 -40 8 -47 -49 44 6 31 -33 39 22 -18
1 8 44 6 31 39 22
<span>1.В Первую мировую войну впервые применили химическое оружие.
Во Великой Отечественной войне победу одержал Советский Союз. 2.У кошки четыре ноги.
Плоские черви - паразиты.
3. Всякий равносторонний треугольник есть равноугольный треугольник.
Прямоугольник с равными сторонами есть квадрат.
4.Русский язык - один из славянских языков.
Пунктуация изучает знаки препинания.
5. Пушкин - великий русский поэт.
Достоевский - один из популярных писателей.
6. Информатика жиздется на математике.
Компьютер облегчил жизнь человека.</span>