Var x: integer;
Begin
Read (x);
If x mod 5 = 0 and x mod 13 = 0 then
Write(x);
end.
MASS[1..7]-7 чисел.
col-количество отрицательных чисел.
sum-сумма всех отрицательных элементов
pr-произведение положительных
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var a:=ArrRandom(15).println;
a.Sorted.println.SortedDescending.println;
end.
Тестовое решение:
17 75 17 71 20 86 10 45 10 78 99 11 16 33 20
10 10 11 16 17 17 20 20 33 45 71 75 78 86 99
99 86 78 75 71 45 33 20 20 17 17 16 11 10 10
Лалалаллалалааллалалалааллааллала
Ну во второй задаче, сумма большего разряда от 2 до 18, а сумма меньшего и среднего от 0 до 18, следовательно число 191615 не подходит и число 111 тоже.
число 151302 не подходит так 03 невозможно ( в данном случае 0 будет не значащем так сумма может быть равна 3 но не 03 ). Оставшиеся числа и есть ответ.