Спортивный инвентарь, советские тренажеры - выбери, как больше нравится
Вот этот кусочек будет считать сколько элементов в массиве меньше 6.
x := 0;
for i := 1 to n do
begin
if m[i] < 6 then
inc(k);<span>
end;
writeln(k);
</span>
Похоже на то, что ящик ждет на вход только число и выводит 1. если оно нечетное и 0 - если четное. Если на вход задано не число, то ящик выводит "Не могу".
В пустой строке 0.
Ответ: 24 ( прикрепила фотографию)
Var age:integer;
begin
readln(age);
if ((age mod 100 >= 10) and (age mod 100 <= 19)) then writeln(age, ' лет')
else if (age mod 10 = 1) then writeln(age, ' год')
else if ((age mod 10 >= 2) and (age mod 10 <= 4)) then writeln(age, ' года')
else writeln(age, ' лет');
<span>end.</span>