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