// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var a:=ArrRandom(ReadInteger('n='),-99,99);
a.Println;
a.SortedDescending.Println;
end.
<u><em>Тестовое решение</em></u>
n= 17
-38 37 -82 54 62 -28 33 37 -61 63 -66 63 -81 -63 3 38 12
63 63 62 54 38 37 37 33 12 3 -28 -38 -61 -63 -66 -81 -82
Считается, что слова отделяются друг от друга пробелом.
var s:string; p:integer;
begin
writeln('Введите строку:');
readln(s);
s:=s+' ';
p:=pos(' ',s);
while p>0 do
begin
if pos('ов ',s)=p-2 then writeln(copy(s,1,p-1));
delete(s,1,p);
p:=pos(' ',s);
end;
end.
Пример:
Введите строку:
пример кров слово шов олово ров
кров
шов
ров
# Код на ruby 2.2.3p173
def zadanie(lineal_array, x, y)
k = 0
lineal_array.each {|element|
k = k + 1 if element < x or element > y
}
return k
end
# Примеры применения
p zadanie([1, 2, 3, 4, 5], 2, 3)
Я надеюсь эти задачи не 8 мого класса, т.к я сдаю информатику, но мы ничего подобного ещё не решали, но я решу 1 задачу, по этому примеру можно решить остальные.
Для начала найдём сколько бит весит файл в 160Кбайт: 1310720 бит
Дальше найдём сколько времени нужно для передачи этого файла: 1310720 : 2048 = 640 сек
Потом находим сколько бит передаётся по новому кабелю: 640×768=491520 бит
И переводим биты в Кбайты: 491520:8 потом делим на 1024=60 Кбайт
В. последовательность символов, строк абзацев