Program pr;
uses crt;
var
mas: array[1..10] of real;
sum: real;
i: integer;
Begin
sum:=0;
for i:=1 to 10 do
Begin
write('mas', i, ' = ');
readln(mas[i]);
sum:=sum + mas[i];
end;
writeln();
writeln('sum = ' , sum);
readln;
<span>end. </span>
Функция на паскале.
Использовал векторные произведения, т.е. удвоенных площади треугольников
Алгоритм выигрыша в этой игре очень простой: каждый раз надо забирать из кучки M+1 камешек. Следовательно, первым ходом надо забрать количество камешков, равное остатку от целочисленного деления N на М+1, а затем в каждый последующий ход забирать столько камешков, чтобы оставшееся их число было кратно M+1.
Ниже приведено решение на языке Borland Pascal 7.01
uses Crt;
var
N,M,k:integer;
begin
ClrScr;
Write('N,M='); Read(N,M);
k:=N mod (M+1);
Writeln(k);
ReadKey
end.
Тестовое решение:
N,M=7 4
2
На картинке: Компьютер (интернет ресурсы); Книги (литература).
Также, информацию можно найти в библиотеках, архивах, в научных центрах и через общение( можно получить информацию).