56 кбит/с = 56000 бит/с (в скорости предачи данных обычно 1кбит/с = 1000 бит/с )
посчитаем кол-во данных, которые передали за 5 секунд:
56000 бит/с * 5 с = 280000 бит
в обычной кодировке один символ занимает один байт (то есть 8 бит)
посчитаем количество переданных символов текста:
280000 бит / 8 = 35000 символов
Ответ дал: Гость
var
s: string;
z,z1,i: integer;
begin
readln(s);
z: =0;
z1: =0;
for i: =1 to length(s) do
begin
if s[i]='м' then inc(z);
if s[i]='н' then inc(z1);
end;
if z> z1 then writeln('больше букв м');
if z< z1 then writeln('больше букв н');
if z=z1 then writeln('букв м и н равное количество');
end.
Ответ дал: Гость
а)
var
p,d,h: real;
begin
readln(h);
p: =1200*9.8*h;
writeln(p);
end.
б)
var
m,h,r: real;
begin
readln(h);
readln(r);
m: =1200*3.14*h*r*r;
writeln(m);
end;
в) необходимы дополнительные условия количество сосудов
если принять количество сосудов за k тогда
var
i,k: integer;
m,h,r,s: real;
begin
readln(k);
s: =0;
for i: =1 to k do
begin
readln(h);
readln(r);
m: =1200*3.14*h*r*r;
s: =s+m;
end;
writeln(s);
end.
Ответ дал: Гость
program a1; const n=20; var c: array [1..100] of integer; var i,k: integer; begink: =0; for i: =1 to n do beginc[i]: =random(101)-50; {заполнение массива произвольно от -50 до 50}write(' ',c[i]); {вывод массива на экран}end; for i: =2 to n doif c[i]< c[i-1] then k: =k+1; {сравнение элемента с предыдущим и счет элементов которые меньше}writeln; writeln('количество элементов=',k); end.
Популярные вопросы