program ex4
real::x,y
read *,x,y
if (y<exp(1.) .and. y>exp(-1.) .and. y>x*x) then
print *,"Vnutri"
else if (y<=exp(1.) .and. y>=exp(-1.) .and. y .eq. x*x &
.or. y .eq. exp(1.) .and. y .eq. x*x &
.or. y .eq. exp(-1.) .and. y .eq. x*x) then
print *,"Na granitce"
else
print *,"Vne"
end if
end
Приводим к общему знаменателю, т.е. умножаем вторую дробь на -1. получается
х+12/8х-7+7-2х/8х-7
=19-х/8х-7
CorelDRAW
(программа для изображения узоров)
Var i,s:integer; st:string;
begin
st:='память';
s:=0;
for i:=1 to length(st) do s:=s+ord(st[i]);
writeln('s = ',s);
end.