54 Кбайт = 54*1024*8 бит
Время передачи при скорости 2^13 бит/сек =
54*1024*8/2^13 = 54 сек
Стоимость = 54*5 = 270 коп
Время передачи при скорости 2^10 бит/сек =
54*1024*8/2^10 = 432 сек
Стоимость = 432*5 = 2160 коп
Переплата = 2160-270 = 1890 коп.
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-50,50); a.Println;
var m:=n-1;
var found:=false;
for var i:=0 to m do begin
for var j:=0 to m do
if i=j then continue
else begin
for var k:=0 to m do
if (k=i) or (k=j) then continue
else
if a[i]+a[j]+a[k]=0 then begin
Println('Решение:',a[i],a[j],a[k]);
found:=true;
break
end;
if found then break
end;
if found then break
end;
if not found then Writeln('Нет нужной тройки чисел')
end.
<u>Примеры</u>
n= 13
-25 -29 41 -19 -9 50 -23 36 33 23 48 -6 -5
Решение: -25 -23 48
n= 8
-33 -23 -3 -5 -5 -20 -22 34
Нет нужной тройки чисел
а) Опечатка? Там просто Str, а не Str1 или Str2. В любом случае, функция возвращает длину строки, т.е. для Str1 k = 14, для Str2 k = 3
б) Возвращает 4 символа начиная с 5-го из строки Str1, s = 'su r'
в) Удаляет из Str1 4 символа начиная с 3-го, Str1 будет = 'v rodilas'
г) Вставляет Str2 в Str1 начиная с третьего сивола, Str2 не изменится, Str1 будет = 'v llesesu rodilas'
д) Возвращает позицию Str2 в Str1, n = 3
К пиктограмме.
а) Тут копают
б) Осторожно, забор!
в) Лестница
г) Нельзя сюда!
д) Второстепенная дорога
е) Там тупик (забыла название)
ж) Место для солнцезащитных очков (Очень ярко! - не помню лол)
