1) t = 16 секунд
V = 2048 бит/с
I = V * t
I = 2048 * 16 = 4096 Байт
Ответ: 4096 байт
2) t = 4 секунды
I = 2 Кбайт = 16384 бит
V = I / t
V = 16384 / 4 = 4096 бит/с
Ответ: 4096 бит/с
var
n,i,otv,l,m,h,k: integer;
begin
writeln ('сколько человек в группе');
read (n);
for i:=1 to n do
begin
writeln ('какой язык ты изучаешь: 1-англ,2-нем,3-франц,0-никакой');
read (otv);
case otv of
0: l:=l+1;
1: h:=h+1;
2: k:=k+1;
3: m:=m+1;
end;
end;
writeln ('английский язык изучает',h,'человек');
writeln ('немецкий язык изучает',k,'человек');
writeln ('французский язык изучает',m,'человек');
writeln (l,'человек не изучает никакой язык');
end.
А) Программное обеспечение
б) О<span>перационная система
в) Приложения</span>
program summa;
var
i, n:integer;
s, k:real;
begin
writeln('введите число n=');
read(n);
s:= 0;
k := 0;
for i := 1 to n do
begin
k:= k + sin(i);
s:= s + 1/k;
end;
writeln('Сумма S= ',s:0:2);
readln;
end.