<span>program noname;</span>
<span>uses crt;</span>
<span>var</span>
<span>V,m,P:integer;</span>
<span>begin</span>
<span>clrscr;</span>
<span>P:=1400;</span>
<span>V:=25*2*39;</span>
<span>m:=V*P;</span>
<span>writeln(m);</span>
<span>end.</span>
Если тебе нужна программа для переворачивания числа,вот тебе она на C :
#include <iostream>
using namespace std;
int main()
{
double x;
double y;
cin >> x; /* Ввод числа */
y = 1/x;
cout << "y = " << y << endl;
return 0;
}
Код программы
var
a: integer;
function c(a: integer): integer;
var
b: integer;
begin
b := 30;
a := -a - 3 * b;
if a < b then
c := b + 45
else
c := b - 50;
end;
begin
for a := 1000 downto -1000 do
if c(a) = -20 then begin
writeln('a=', a, ' c(a)=', c(a));
break;
end;
end.
Вывод
a=-120 c(a)=-20
Аналитическое решение.
Видно что <span>c:=b - 50 = 30 - 50 = -20 при a>=b
</span><span>-a-3*b>=b</span>
<span>-a-3*30>=30
</span>-a-90>=30
<span>-a>=120
a<=-120</span>