Вариант 1 (если скорость 29 кбайт/сек
1) 50 × 96 = 4800 символов в сообщении которое будем передавать
2) 4800 × 1 байт = 4800 байт информационный объем передаваемого сообщения
3) 29 Кбайт / сек = 29696 байт / сек - скорость передачи данных
4) 4800 / 29696 = 1,62 сек потребуется для передачи сообщения со скоростью 29 Кбайт/сек
Вариант 1 (если скорость 29 кбит/сек
1) 50 × 96 = 4800 символов в сообщении которое будем передавать
2) 4800 × 1 байт = 4800 байт = 38400 бит информационный объем передаваемого сообщения
3) 29 Кбит / сек = 29696 бит / сек - скорость передачи данных
4) 38400 / 29696 = 1,29 сек потребуется для передачи сообщения со скоростью 29 Кбит/сек
1.y=m1*m2/Sqr(r)
2. Program my;
var S,a,b,h:real;
begin
write('Введите длины оснований и высоты');
readln(a,b,h);
S:=(a+b)*h/2;
readln(S);
end.
3. Program my;
var a:integer;
begin
writeln('Введите трехзначное число');
readln(a);
If (a mod 10=7) then write('Данное число заканчивается на 7');
else write('Данное число не заканчивается на 7');
end.
4.Program my;
var a,b,:integer;
begin
readln(a,b);
If (a>b) then writeln(Sqr(a), b+10);
If (a=b) then writeln('Числа равны');
If (a<b) then writeln(Sqr(b), a+10);
end.
5.
Program my;
var a,b,c:integer;
begin
Readln(a,b);
For c:=a to b do
if (c mod 10=0) then
writeln (c);
end.
var
A, D, Q, R: integer;
begin
read(A, D);
Q := 0; R := 0;
while (A >= D) do
begin
A := A - D;
Q := Q + 1;
end;
R := A;
write('Частное = ', Q, ' Остаток = ', R);
end.