Program ;Var I,N,S,R,P:integer;Begin Repeat Write('Введите число для натурального ряда:'); Readln(N); Until N > 0; For I:= 1 to N do S:= S + I; Writeln('Сумма чисел:',S); P:= 1; For I:= 1 to N do P:= P * I; Writeln('Произведение чисел:',P); R:= P - S; Writeln('Разность чисел:',R);end.
) В числе не меньше двух цифр, которые меньше шести. Следовательно, в числе две цифры в диапазоне от 0 до 5, а третья может быть и больше. 2) В числе не меньше двух четных цифр. Следовательно, в числе одно цифра может быть и нечетной. 3) Если число должно быть наибольшим, то его старшая цифра должна быть не меньше остальных. Учитывая 1) и 2) выбираем в качестве старшей цифры девятку. Тогда две оставшиеся меньше шести и обе четные. 4) С учетом того, что число должно быть наибольшим, выберем цифры четыре.