Файл размером 160 кбайт передаётся через некоторое соединение со скоростью 2048 бит в секунду. определите размер файла (в кбайт), который можно передать за то же время через другое соединение со скоростью 768 бит в секунду. в ответе укажите одно число — размер файла в кбайт. единицы измерения писать не нужно.

Файл размером 100 Кбайт передаётся через некоторое соединение со скоростью 1536 бит в секунду. Определите размер файла (в Кбайт), который можно передать за то же время через другое соединение со скоростью 768 бит в секунду. В ответе укажите одно число – размер файла в Кбайт. Единицы измерения писать не нужно.1. 100×1024×8=819200 бит. 2. t=819200бит/1536бит/сек=533сек.3. 533сек×768битсек=409344бит.4. 409344/8=51168байт.5. 51168байт/1024=50Кбайт. Я советую тебе проверить, правильно ли ты написал (а) числа, ибо ответ не целый много, где получается. Так как время одинаковое, легче решать пропорцией.
100 Кбайт : 1536 бит в секунду = х Кбайт / 768 бит в секунду
х Кбайт = 100 Кбайт × 768 бит в секунду / 1536 бит в секунду = 100 К байт / 2 = 50 Кбайт

Согласно первому заданию надо сначала найти максимальный элемент

uses crt;
var x,y,z,max:integer;

Begin
writeln('Введите x y z');
readln(x,y,z);
if (x>y) and (x>z)
then max:=x
else
if (y>x) and (y>z)
then max:=y
else max:=z;

Writeln('max =',max);
Writeln('Младший разряд =',max mod 10);
Writeln('Остаток от деления на 3 =',(max mod 10) mod 3);

readln;
end.

2)

var n: Integer;
Begin
writeln('Введите день недели');
readln(n);
write('Уроков ');

case n of
1-4: writeln('6');
5,6: writeln('5');
7: writeln('нет');

end;
End.

1.поименованная или иным образом идентифицированная часть компьютерной программы, содержащая описание определённого набора действий. Подпрограмма может быть многократно вызвана из разных частей программы. В языках программирования для оформления и использования подпрограмм существуют специальные синтаксические средства.

2. Локальные переменные делают возможной рекурсию. Переменные локальной области видимости используются, чтобы избежать проблем с побочными эффектами, которые могут произойти с глобальными переменными. Языки программирования, которые используют вызов по значению, выделяют каждой подпрограмме локальную область видимости из локальных переменных с локальной копией аргументов переданных ей.

3. program primer1; var a, n: integer; s:longint; procedure degree(x,y: integer; var st: longint); var i:integer; begin st :=1; For i:=1 to y do st:= st * x; end; begin {main} writeln('Введите два числа'); readln(a, n); degree(a,n,s); {Вызов процедуры} writeln('Результат: ', s); {Вывод результата} end.

4. При вызове процедуры с параметром она принимает передаваемые значения, а без параметров - она не может принимать значения. Глобальная переменная - это такая переменная, которая может быть использована во всей программе, в том числе в процедурах и в функциях.