Обозначим за m ( = 2003) число строк в таблице, n ( = 2016) - число столбцов
a[i,j] - число, стоящее в i-ой строке, j-ом столбце в таблице, заполненной по горизонталям, b[i,j] - по вертикалям ( i = 1..m, j = 1..n)
Тогда a[i,j] = n*(i-1) + j, b[i,j] = m*(j-1) + i
Условие совпадения чисел в соответствующих клетках: a[i,j] = b[i,j]
2016*(i-1) + j = 2003*(j-1) + i
2016i - 2016 + j = 2003j - 2003 + i
2015i = 2002j + 13 {все числа делятся на 13}
155i = 154j + 1
Общее решение этого уравнения:
i = 1 + 154k
j = 1 + 155k
k = 0..13 (при k < 0 и при k > 13 i и j выходят из допустимого диапазона)
Т.е. всего 14 решений.
Ответ: 14
<h3>PascalABC.NET 3.4.2, сборка 1811 от 01.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var p:=SeqRandomReal(ReadInteger('n='),-99,99)
.Select(t->Round(t,2)).ToArray;
p.Println;
Println('Сумма положительных',p.Where(r->r>0).Sum);
Println('Сумма отрицательных',p.Where(r->r<0).Sum)
end.
Блогсхема:
Начало
Действие 1
Действие 2
Конец
Можешь написать алгоритмы:
Собирание в школу
Заправление постели
Поливание цветка
И т.д
Ответ:
Дан в приложении.
Объяснение:
Я опирался на теорему Пифагора: в прямоугольном треугольнике квадрат гипотенузы равен сумме квадратов двух катетов.
А для нахождения площади была использована формула Герона:
Непонятно, что означает "дополнительный" стакан молока... т.е. есть еще основная порция молока? Если так, то (смотри файл) в столбец "основное молоко" надо добавить значения. Если нет, то этот столбец вообще убрать и посчитать итог по столбцу "дополнительное молоко".
И, да, значения все, естественно, с потолка... Сами введите, какие нужно.