Program nfff;
var abcd,S,a,b,c,d: integer;
Begin
WriteLn('найти сумму цифр четырехзначного числа');
Write('Введите abcd= ');ReadLn(abcd);
a:=abcd div 1000;
b:=abcd div 100;
b:=b mod 10;
c:=abcd mod 100;
c:=c div 10;
d:=abcd mod 10;
S:=a+b+c+d;
writeln('S=',S);
End.
<em>Только вместо пустых ячеек, надо поставить свои слова<u /><u /></em>
Я не могу понять связь между химией и паскале подробнее опиши задание
Четных чисел 3: 2,4,6. Одно из них можно выбрать 3 -мя способами. Из оставшихся 6 можно составить 6! = 720 перестановок, следовательно, всего перестановок - 720*3 = 2160