Дано целое положительное значение N. Требуется вычислить сумму:1!+2!+3!+…+N!.

сумму чисел один,два,три,четыре,пять разделить на разность чисел 10 и 7.равно пяти.

var

x: real;

begin

readln(x);

writeln(round(x));

end.

var a: integer; c1, c2, c3, c4: integer;

begin for a : = 1000 to 9999 do begin c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln(a); end; end.

я так понимаю нужно нарисовать рисунки рыб, карасей и различных животных. множества нужно перекрестить(множество рыб и хищ. животных), так как рыба тоже может быть хищником