<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=21;
repeat
n+=1
until (n mod 7=0) and (n mod 10=1);
n.Println
end.
<u>Результат</u>
91
<span>// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017</span>
begin
var x:=ArrRandom(ReadInteger('Введите размер массива->'),-5,5); x.Println;
var y:=x.Select(t->t<0?abs(t):t); y.Println;
Println('Произведение:',x.Where(t->t<>0).Aggregate((a,b)->a*b));
end.
Пример:
Введите размер массива-> 10
1 2 -1 2 4 4 1 1 -3 2
1 2 1 2 4 4 1 1 3 2
Произведение: 384
Ответ:
а) матрицей меньшего ранга
Объяснение:
Ответ:
1) Нет
2) 4 секунды
Объяснение:
№1
-----Дано-----
17 роликов
Размер 1 ролика 490мб
-----Найти-----
Поместиться ли 17 роликов на флешку 8ГБ ?
-----Решение-----
17 * 490 = 8330мб
8330 \ 1024 = 8.1 ГБ
Берем в расчет еще и файловую систему флешки, там чистых 8 ГБ не будет даже на новой.
-----Ответ-----
Нет. 17 файлов на 8Гб-ю флешку не поместятся.
№2
-----Дано-----
Скорость передачи 2 048 000 бит/с
-----Найти-----
Через сколько секунд передаст файл размером 1000 Кбайт
-----Решение-----
2 048 000 / 8 = 256000 байт
256000 \ 1024 = 256 кбайт (256 Кбайт/с скорость канала)
1000 \ 256 = 3,9 секунды, округляем получаем 4 секунды.
-----Ответ-----
4 секунды на передачу.
<u>Алгоритм</u>
Берем ряд чисел от 10 до 99 и выводим те из них, которые удовлетворяют условию. Цифры числа получаем путем нахождения целой части деления числа на 10 (старшая цифра) и остатка от такого деления (младшая). Если число кратно 13, то остаток от его целочисленного деления на 13 нулевой.
<u /><u>Программа</u>
<em>( PascalABC.NET 3.2, сборка 1385 от 14.02.2017 )</em>
begin
Range(10,99).Where(n->(sqr(n div 10)+sqr(n mod 10)) mod 13=0).Println
end.
<u>Результат</u>
15 18 23 32 46 47 51 64 69 74 79 81 96 97