Кто умеет писать программы на паскале? Напишите, плиз, листинг программ:
1) принадлежность чисел А и В интервалу [1;-1]
2) возведение числа А в степень n

1

Ответы и объяснения

2013-05-16T22:18:17+04:00

хм... 1 задача, я так понял ответ должен быть принадлежит/не принадлежит?

 

var a,b:real;

begin

read(a,b);

if (a>=-1) and (a<=1) then writeln(a,' - Da') else writeln(a,' -Net');

if (b>=-1) and (b<=1) then writeln(b,' - Da') else writeln(b,' -Net');

end.

 

2)

 

var A,n:integer;

begin

read(A,n);

writeln(exp(n*ln(A)));

end.

 

 

2 alternative)

 

var A,n,i,s:integer;

begin

s:=1;

read(A,n);

for i:=1 to n do

s:=s*A;

writeln(s);

end.

 

 

Вопросы, недочеты в ЛС