Визначте довжину двійкового коду з 19 символів яке закодоване windows-1251

Используемая формула: I = V • t.

V — пропускная канала (в битах в секунду

или подобных единицах);

t — время передачи.

Найдём время передачи информации по соединению.

Выполним преобразование от Кбайт к бит.

t = I : V = 240 Кбайт : 2048 бит/с =

= (240 • 1024 • 8) : 2048 с =

= (30 • 8 • 210 • 23) : 211 с = 960 с.

Найдём объём файла, который можно передать за это время по другому соединению. Выполним преобразование от бит к Кбайт.

I = V • t = 512 бит/с • 960 с = 491 520 бит =

= 491 520 : 8 : 1024 Кбайт = 60 Кбайт.

ответ;60.

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 - №1
begin
  var a,b,c:integer;
  Write('Введите три натуральных числа: '); Read(a,b,c);
  var s:=a+b+c;
  var k:=Trunc(sqrt(s));
  if k*k=s then Writeln('Сумма чисел - квадрат ',k)
  else Writeln('Сумма чисел не является квадратом целого')
end.

Тестовое решение
Введите три натуральных числа: 13 4 8
Сумма чисел - квадрат 5

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 - №2
begin
  var a,b,c:integer;
  Write('Введите три натуральных числа: '); Read(a,b,c);
  var s:=power(a*b*c,1/3);
  if s=int(s) then Writeln('Среднее геометрическое - целое число')
  else Writeln('Среднее геометрическое - нецелое число')
end.

Тестовое решение
Введите три натуральных числа: 16 8 15
Среднее геометрическое - нецелое число