Var
n,x:string;
i:integer;
begin
write('Введите число n: ');
readln(n);
for i:=length(n) downto 1 do x:=x+n[i];
writeln('Обратное число: ',x)
<span>end.
или можно так:
</span>var
n:string;
begin
write('Введите число n: ');
readln(n);
writeln('Обратное число: ',ReverseString(n) )
end.
1) (Где полукруг)
var
x, y:integer;
begin
readln(x, y);
if (x>=0) AND (x*x + y*y >= 9) AND (x*x + y*y <= 25) then
writeln('(',x,';',y,') - принадлежат заданной области')
else
writeln('(',x,';',y,') - не принадлежат заданной области')
end.
Div дивергенция
cos косинус
sin синус
tn тангенс
ctg катангенс
arctn арктангенс
arcctg арккатангенс