задачки превосходнее все же давать по одной. Не всегда есть время и возможность решить обе задачи сходу.
вычисляем факториал
var
n : integer;
fac : biginteger := 1;
begin
write('введите n=');
readln(n);
if n lt; 0 then writeln ('n не может быть меньше 0')
else if n gt; 1 then begin
for var i := 1 to n do fac *= i;
writeln('n!=', fac);
end;
end.
вычисляем сумму
var
n : integer;
s : real;
begin
write('введите n=');
readln(n);
if n lt; 1 then writeln ('n не может быть меньше 1') else for var i := n downto 1 do s += (i+1)/(sqr(i)+1);
writeln('s=', round(s, 2));
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.