Подчеркните числа, которые в десятичной системе счисления будут двузначными. 27₈, С₁₆, 205₈, 11₈, 104₈, С0₁₆

2 числа записывают в порядке неубывания, то есть в порядке возрастания, или 2 числа равны. Числа:2512, 2518, 2524 не подходят уже по этому критерию.  Max сумма трех десятичных цифр = 27(9+9+9). Число 2828 не подходит. Остались числа: 2425, 1225, 1825, 123. Рассмотрим последнее число 123. Сумма первых 3 его цифр равна 1, т.е первые три цифры 100, третья цифра 0 должна в сумме с двумя другими цифрами дать 23, но сумма 2 цифр меньше или равна 18, поэтому такого числа нет.

Остались 2425 1225 1825
ответ:3

Uses crt;
var f:text;
    i,x,sm,n:integer;
    pr:longint;
begin
randomize;
clrscr;
pr:=1;
assign(f,'f.txt'); rewrite(f);
writeln('Введите число заполнений (например 6, в файле будет шесть натуральных чисел) ?'); readln(n);
for i:=1 to n do
begin
write(i,') ');
readln(x);
writeln(f,x);
end;
close(f);
reset(f);
while not Eof(f) do
begin
read(f,x);
sm:=sm+x;
if x <> 0 then pr:=pr*x;
end;
if n <> 0then
begin
writeln;
writeln('Сумма всех чисел = ',sm);
writeln('Произведение всех чисел = ',pr);
end else writeln('Файл пустой.');
readkey;
close(f);end.