Чтобы уменьшить количество вычислений, преобразуем формулу к рекуррентной.
Теперь все готово для программирования.
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>var
i,n:integer;
a,s:real;
begin
Write('n='); Read(n);
if n=1 then Writeln('S=1')
else
if n=2 then Writeln('S=0.5')
else begin
s:=0.5; a:=0.5;
for i:=3 to n do begin a:=a/i; s:=s-a end
end;
Writeln('S=',s)
end.
<u>Пример</u>n=10
S=0.281718198853615
Так то, Предложение - это группа слов, которая выражает законченную мысль.
еще можно Высказывание. Умозаключение.
Var
m,n,s,p:integer;
Begin
read(m,n,s);
p:= (s mod 10) + (s div 100 mod 10); {p сумма цифр}
If (p mod m = 0) and (p mod n = 0) then
writeln('Числа ',m,' и ',n,' являются делителями числа ',p)
else
writeln('Числа ',m,' и ',n,' не являются делителями числа ',p);
end.
Объяснение из скобок можешь убрать
В данном примере может использоваться несколько видов информации.
Тактильная - это познавание информации с помощью кожи ( так как мы можем почувствовать ветер, нам станет холодна)
Аудиальная - это восприятие информации с помощью слуха (Так как мы можем услышать ветер)
И можно сказать, что обонятельная информация тоже присутствует - это восприятие информации с помощью запаха, носа (так как вдохнув воздух, мы сможем сказать, что дует холодный ветер, так как вам станет трудно
и неприятно дышать)
С=12; A=10;
12 * 16(четвёртой степени) + 2 * 16(третьей степени) + 10 * 16 (в квадрате) + 1 * 16(первой степени) + 6 * 16(нулевой степени)
12 * 65536 + 4096 *2 + 256 * 10 + 16 + 6 = 786432 + 8192 + 2560 +22 = 797206
Ответ : 797206