begin
var (a, b, c) := (1.5, 2.0, -0.75);
var x := ReadReal('Введите x');
var y := a * Exp(-Sqrt(x)) * Cos(b * x) + c;
Println(y);
(a, b, c) := (2, 0.7, 0.5);
var t := ReadReal('Введите t');
var z := a * Cos(b * t * Sin(t)) + c;
Println(z);
(a, b) := (2, 1.2);
z := Sqrt(a + b * Exp(Sin(x)) + 1);
Println(z);
end.
Пусть это и не уравнение, но смысл понятен:
Var a,b:real;
Begin
Write('a = ');Read(a);
Write('b = ');Read(b);
if a<>b then Write('Да')
else Write('На ноль делить нельзя!')
End.
Эйлер - известный европейский математик, он очень долго жил и умер в России, в Петербурге.
Полный код на паскале
var
i: integer;
s: real;
begin
s := 0;
for i := 12 to 2001 do
s := s + i;
writeln(s);
s := 1;
for i := 2 to 201 do
s := s * i / (i + 2);
writeln(s);
s := 1;
for i := 1 to 33 do
if i mod 3 = 0 then s := s * 2;
writeln(s);
s := 2;
i := 10;
while i <= 13 do
begin
s := s + 11;
i := i + 1;
end;
writeln(s);
end.
Вывод программы и ответы соответственно
2002935
0.000146320050724284
2048
46