// PascalABC.NET 3.1, сборка 1200 от 13.03.2016 begin Writeln('s=',Range(ReadInteger('n='),-1).Sum) end.
Тестовое решение: n= -8 s=-36
"Школьный вариант"
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016 var i,n,s:integer; begin s:=0; Write('n='); Read(n); for i:=-1 downto n do s:=s+i; Writeln('s=',s) end.
Должно быть правильно, если я правильно понял твой вопрос.
program massive; var a:array[1..50] of integer; var i, s:integer;begin for i:= 1 to 50 do //можем заполнить массив целыми числами от -1000 до 1000 используя random() a[i]:= random(2001) - 1000; for i:= 1 to 50 do //или дать пользователю самому заполнить массив begin writeLn('Введите значение ', i, ' элемента массива:'); readLn(a[i]); end; s:=0; for i:= 1 to 50 do if a[i] > 100 then s:= s+a[i]; writeLn('Сумма элементов массива, которые больше 100 = ', s);end.
Представим таблицу в виде: (см. Рис. 1) Получаем уравнение 8 + b1 + 4 = 2*b1 + (b1+2) + 4 Отсюда: b1 = 3. Получаем (см. Рис. 2)
Далее, заметим, что сумма по горизонтали и по диагонали равна 15. Заполняем таблицу (см. Рис. 3)
ответ: С2 = 9
Решение 2.
Заданным свойством (иметь одинаковую сумму по горизонталям, вертикалям и диагоналям) обладает единственный МАГИЧЕСКИЙ КВАДРАТ (не учитывая его повороты и отражения относительно осей). Это магический квадрат 3х3 с магической суммой 15 (см. Рис. 4)
begin
Writeln('s=',Range(ReadInteger('n='),-1).Sum)
end.
Тестовое решение:
n= -8
s=-36
"Школьный вариант"
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
var
i,n,s:integer;
begin
s:=0;
Write('n='); Read(n);
for i:=-1 downto n do s:=s+i;
Writeln('s=',s)
end.