<span>419 + например 4559
1319 - т.к. сумма четных цифр дает четное число, а здесь все нечетные
2014 - убывание или числа 2 и 014, а число не может начинаться с 0
1811 - убывание</span><span>
1212 + например 6657
205 - т.к. в порядке неубывания могут стоять только 2 и 05, а на 0 числа не начинаются
322 + 3886
294 - </span>т.к. в порядке неубывания могут стоять только 2 и 94, а сумма 3 чисел не может превышать 27<span>
55 - т.к. все 4 нечетные числа в сумме дают максимум 36, а 5 и 5 невозможно, т.к. 5 не может быть суммой четных чисел
Итого: 3 числа</span>
Var
a, b : integer;
begin
b:=1;
write('a?');
readln(a);
a := abs(a);
while a > 0 do
begin
b := b * a mod 10;
a := a div 10;
end;
if b mod 3 =0 then writeln('да')
else writeln('нет');
end.
Ответ:с выбора шаблона, то есть готовой пустой заготовки документа определенного назначения
Объяснение:
Const
n = 10;
var
a: array[1..n] of string;
i: integer;
begin
for i := 1 to n do
begin
a[i] := chr(ord('A') + i - 1);
writeln(a[i]);
end;
end.