Учитывая, что в условии не обозначены границы N, придется воспользоваться возможностями PascalABC.Net
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var f: BigInteger := 1;
var s: BigInteger := 0;
var n := ReadInteger;
for var i := 1 to n do
begin
f:=1;
for var j := 1 to i do f *= j;
s := s + f;
end;
println('Сумма факториалов ', s);
end.
Тестовое решение
n=100
Сумма факториалов 94269001683709979260859834124473539872070722613982672442938359305624678223479506023400294093599136466986609124347432647622826870038220556442336528920420940313
Запишим коды каждой буквы:А = 1000Б = 1001В = 1010Г = 1011 Запишем последовательность БГАВ = 1001101110001010 Чтобы перевести в восьмеричный код из двоичного, следует начиная с конца разбить код на тройки и каждую уже перевести. Получится:001 001 101 110 001 010 (впереди числа, если не хватаем чисел, можно дописывать 0. Они не дают результата, просто удобны для записи). Переводим кажое число путем развернутой )формы записи и счета: <span>Ответ: 115612</span>
Var
a: array[1..10] of integer;
i, count: integer;
begin
for i:=1 to 10 do
readln(a[i]);
count:=0;
for i:=1 to 10 do
if a[i] < 70 then
inc(count);
writeln(count);
end.
Ответ:0.1011*10*(-100)=101,1
Объяснение:
1)0,1011*10=1,011
2)1,011*(-100)=101,1
* это умножение
А) свойства и отличительные характеристики.
б) величина и значение объекта
в) возможности объекта обозначаются именами действий, отвечающие на вопрос "Что он может делать?"
г) описание действия объекта свойственного ему
д) сочетание значений всех или некоторых свойств объекта