Средняя скорость передачи данных по некоторому каналу связи равна 29 кб/с. сколько секунд потребуется для передачи по этому каналу 50 страниц по 96 символов один символ кодируется 1 байтом.
Var x, i, h1, h2, h3, h4, h5, h6, s1, s2: integer; begin readln (x); h1 := x div 100000; h2 := x mod 100000 div 10000; h3 := x mod 10000 div 1000; h4 := x mod 1000 div 100; h5 := x mod 100 div 10; h6 := x mod 10; s1 := h1 + h2 + h3; s2 := h4 + h5 + h6; if (s1 = s2) then writeln('Счастливый') else writeln('Несчастный:)'); readln; end.
Вот, ошибка в целочисленном делении) Советую такое на листочке расписывать: 123321 и обводить что нужно взять, что в каком порядке откидывать...)
1) var a,b,a1,b1:real; var s,s1:real; begin WriteLn('Введите все катеты через пробел:'); Read(a,b,a1,b1); s:=a/2*b; s1:=a1/2*b1; WriteLn(s); WriteLn(s1); if s = s1 then WriteLn('Треугольники равновелики') else if s>s1 then WriteLn('Площадь первого треугольника больше на '+(s-s1)) else WriteLn('Площадь второго треугольника больше на '+(s1-s)); end.
2) var a,b:Integer; var arr:array of char; begin arr:=ReadString().ToCharArray(); for var i:= 1 to 6 do if(i<4) then a+= strtoint(arr[i-1]) else b+= strtoint(arr[i-1]); if a=b then WriteLn('Билет счастливый') else WriteLn('Билет не счастливый'); end.
Вариант 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 Кбит/сек