Считается по формуле суммы членов арифметической прогрессии: Sn=((a1+an)/2)*n, то есть ((1+212)/2)*212
Так как сначала m = 0 и k = 0 то выведет тоже 0, так как конструкция k + m всегда возвращает 0
Прошу заметить, что программа работает не только с трёхзначными числами. А работает и с тысячами, и с миллионами
program Znanija;
var n,a,i:integer;
begin
readln(n);
a:=n;
while(n > 0) do
begin;
i := i + 10 + n mod 10;
n := n div 10;
end;
if i mod 2 = 0 then
writeln('Сумма цифр числа ', a, ' - чётное число')
else
writeln('Сумма цифр числа ', a, ' - нечётное число');
end.
4 пещеры два значения либо да либо нет(1 или 0)
4 пещеры= 4 бита(минимум) можно и пятью и шестью и более