Считается по формуле суммы членов арифметической прогрессии: Sn=((a1+an)/2)*n, то есть ((1+212)/2)*212
Во вложении - файл с рабочей книгой MS Excel-2003. Не забудьте разрешить выполнение макросов и проекты с отсутствующей цифровой подписью.
Если все же захочется попробовать решить ребус КОТ+КОТ=ТОК, замените правую часть оператора присваивания для n1 выражением из правой части оператора присваивания для n2.
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var a:=ReadInteger('Яблок было');
var d:=ReadInteger('Детей гуляло');
Writeln('Каждый получил яблок: ',a div d);
Writeln('На компот пошло яблок: ',a mod d)
end.
<u><em>Тестовое решение:</em></u>
Яблок было 37
Детей гуляло 7
Каждый получил яблок: 5
На компот пошло яблок: 2
Var a: boolean;
<span> b: integer;
</span>
begin
a:= true;
if (a) then
b:= 4;
else
b:= -4;
writeln(b);
end.