Uses crt;
var a:array[1..4] of integer;
sum,i:integer;
begin
clrscr;
writeln('Введите 4 целых числа:');
for i:=1 to 4 do
begin
read(a[i]);
if a[i]mod 3=0 then sum:=sum+a[i];
end;
writeln('Сумма чисел, кратных трем: ',sum);
<span>end.</span>
V=i*T*D*1=16*10*44100=<span>
7056000 бит/8/1024=</span><span><span>861,328125Кбайт</span></span>
Var
m,n,d:integer;
begin
Read(m,n);
d:=m mod 10 - n mod 10;
if d<0 then Writeln('У 1-го числа разряд единиц меньше')
else
if d>0 then Writeln('У 2-го числа разряд единиц меньше')
else Writeln('У обоих чисел разряды единиуц равны')
end.
1800 байт * 8 = 14 400 бит
14 400 бит = 14 400 бит
ответ: за одну секунду
1) 192 Кбит/с= 192/8 Кбайт/с = 24 Кбайт/с;
2) 3600 Кбайт/с / 24 Кбайт/с = 150 секунд;
3)150 секунд= 150/60 минут = 2,5 минут.
<span>Ответ: 2,5 минут.</span>