Var x:integer;y:real;
begin
write('Введите х');
read(x);
if x>0 then y:=5*exp(2*ln(x)) - 4*х/<span>exp(3*ln(x));
</span>if x=0 then y:=5*<span>exp(2*ln(x)) - 4;
</span>if x<0 then y:=5*<span>exp(2*ln(x)) - 4*x;
</span>writeln('f(x)=',y);
end.
Ответ:MS Excel
Объяснение:Эта программа электронная таблица,используется математические и другие функции , с помощью помощью которых можно создавать тестовые разработки с автоматическим подсчетом правильных ответов.
программа здесь: http://rghost.ru/43527025
var chislo, summa, proizv:integer;
begin
summa:=0;
proizv:=1;
repeat
Writeln('Input number: ');
Readln(chislo);
if chislo mod 2 = 0 then summa:=summa+chislo;
if chislo <>0 then proizv:=proizv * chislo;
until chislo=0;
Writeln('a) Sum = ', summa);
Writeln('b) Proizvedenie = ', proizv);
readln;
end.
Нужно найти максимальное и минимальное из трёх чисел.
Пусть даны три числа x, y, z
Пусть:
m = min{x, y, z},
M = max{x, y, z},
r = max - min;
Теперь остаётся записать в качестве ответа число r, оно и будет разницей.
На C++ написал бы так:
#include <iostream>
using namespace std;
int maxNum(int x, int y, int z)
{
<span> if </span>((x>=y)&&(x>=z))
return x;
else if ((y>=x)&&(y>=z))
return y;
<span>else
return</span> z;
}
int minNum(int x, int y, int z)
{
if ((x<=y)&&(x<=z))
return x;
else if ((y<=x)&&(y<=z))
return y;
<span>else
return</span> z;
}
void main()
{
setlocale(0, "Rus");
int x, y, z;
cout << "Введите через пробел 3 числа" << endl;
cin >> x >> y >> z;
cout << "Разница : " << maxNum(x,y,z) - minNum(x,y,z) << endl;
}