Компьютер
непонятный, железный
жужжит, светится, виснет
можно играть в компьютерные игры
<span>хорошая покупка...</span>
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (x,eps):=ReadReal2('Введите аргумент и точность:');
var (i,s,px,fn,x2):=(1,0.0,x,1.0,x*x);
var t:real;
repeat
t:=px/fn; i+=1; px*=x2; fn*=(2*i-1)*(2*i-2); s+=t
until Abs(t)<=eps;
Writeln(s:0:15,' - расчетное значение');
Writeln(Sinh(x):0:15,' - вычислено функцией Sinh(x)')
end.
<u>Примеры</u>
Введите аргумент и точность: 1.543 1e-8
2.232433065790520 - расчетное значение
2.232433065795030 - вычислено функцией Sinh(x)
Введите аргумент и точность:1 .543 1e-15
2.232433065795030 - расчетное значение
2.232433065795030 - вычислено функцией Sinh(x)
Введите аргумент и точность: -12.6 1e-7
-148279.282647414000000 - расчетное значение
-148279.282647415000000 - вычислено функцией Sinh(x)
Ответ:
program CountNum;
uses
SysUtils;
var
n, i, c: Integer;
s: string;
begin
Write ('Введите N: ');
ReadLn (n);
s := IntToStr (n);
c := 0;
for i := 1 to Length (s) do begin
if StrToInt (s [i]) mod 2 = 0 then
Inc (c);
end;
WriteLn ('Количество четных цифр = ', c);
ReadLn;
end.
Для того что бы округлить нужно использовать "=ОКРУГЛ" данная команда округляет число до указанного количества десятичных разрядов, цифр после запятой. (что бы округлить сумму нужно записывать количество десятичных разрядов в конце выражения). Пример:«=ОКРУГЛ((выражение);число)»
Дано:
Математическое выражение:
«(84+169)−2(70:(7+11))»
Найти:
Значение выражения и округлить его в MS Ecxel.
Формула (Её нужно ввести в окошко Excel и нажать "Enter"):
«=ОКРУГЛ((84+169)-2*(70/(7+11));2)»
Ответ:
245,22
Далее скриншот, и файл Excel в котором формула и сам ответ.
<span>что вечно тормозит и тупит?</span>
