У вас программа считает не формулу, приведенную в условии.
Если делать по условию, то:
s := 0;
i := 1; while (i <= n) do begin s := s + 1/n; inc(n,2); end;
i := 2; while (i <= n) do begin s := s - 1/n; inc(n,2); end;
Во 2 Естественный
В 3 байт
в<em> 5</em> обработка
Первая программа:
<!DOCTYPE html>
<html>
<head>
<style>
body {
text-align: center;
}
form {
display: inline-block;
}
form > button {
width: 100%;
}
</style>
<script>
function Privetstvie()
{
var name1 = "Моё имя";
var name = document.getElementById("Pole_vvoda_imeni").value;
var Pole_vuvoda_privetstviya = document.getElementById("Pole_vuvoda_privetstviya");
if (name === name1)
{
Pole_vuvoda_privetstviya.innerHTML = "Привет мне!";
} else {
Pole_vuvoda_privetstviya.innerHTML = "Привет, незнакомец";
}
}
</script>
</head>
<body>
<form>
<div>
<label for="Pole_vvoda_imeni">Пожалуйста, введите своё имя:</label>
<input id="Pole_vvoda_imeni" type="text">
</div>
<button type="button" onClick="Privetstvie();">Поздароваться</button>
<div id="Pole_vuvoda_privetstviya"></div>
</form>
</body>
</html>
____________________________________________
Вторая программа:
<!DOCTYPE html>
<html>
<head>
<style>
body {
text-align: center;
}
form {
display: inline-block;
}
form > button {
width: 100%;
}
</style>
<script>
function Privetstvie()
{
var name1 = "Моё имя";
var name2 = "Имя друга";
var name3 = "Имя другого друга";
var name = document.getElementById("Pole_vvoda_imeni").value;
var Pole_vuvoda_privetstviya = document.getElementById("Pole_vuvoda_privetstviya");
switch (name)
{
case name1:
Pole_vuvoda_privetstviya.innerHTML = "Привет, мне!";
break;
case name2:
Pole_vuvoda_privetstviya.innerHTML = "Привет, "+name2+"!";
break;
case name3:
Pole_vuvoda_privetstviya.innerHTML = "Привет, "+name3+"!";
break;
default:
Pole_vuvoda_privetstviya.innerHTML = "Привет, незнакомец";
}
}
</script>
</head>
<body>
<form>
<div>
<label for="Pole_vvoda_imeni">Пожалуйста, введите своё имя:</label>
<input id="Pole_vvoda_imeni" type="text">
</div>
<button type="button" onClick="Privetstvie();">Поздароваться</button>
<div id="Pole_vuvoda_privetstviya"></div>
</form>
</body>
</html>
Много как...
Квадрат числа - Sqr(x)
Число в степени N - Power(x, n)
Корень числа - Sqrt(x)
Корень степени N - Power(x, 1/n)
Синус числа (в радианах) - Sin(x)
Косинус - Cos(x)
Логарифм натуральный - Ln(x)
Логарифм по основанию n - Ln(x)/Ln(n) или LogN(x)
Модуль числа - Abs(x)
Экспонента - Exp(x)
Остальные функции, как и Power, зависят от паскаля. Где-то есть Arctan, Tan, Cotan и т.д., а где-то их нет.
P.S. Не путаемся в знаках, скобках и порядка расстановки литерал.
а) Sqr(1 + x)
б) Sqrt(1 + Sqr(x))
в) Sqr(cos(Sqr(x)))
г) ln(x/5)/ln(2)
д) Arcsin(x)
е) (exp(x) + exp(-x)) / 2
ж) Power(x, sqrt(2))
з) Power(1 + x, 1/3)
и) Sqrt(Power(x, 8) + Power(8, x))
к) (x * y * z - 3.3 * Abs(x + Power(y, 1/4))) / (Power(10, 7) + ln(factor(4)))
л) (beta + sqr(sin(Power(Pi, 4)))) / (cos(2) + Abs(Cotan(y)))
function factor(x: longint): longint;
begin
if x <= 0 then factor := 1
else factor := factor(x - 1) * x;
end;
//PascalABC
var
N : integer;
begin
write('Введите число > ');
readln(N);
write('Получите модуль числа > ', abs(N));
end.