Прошу ,умоляю , , . напишите функцию double power (double a, int n) (c/c++), function power (a: real; n: longint): real (pascal), вычисляющую значение a ^n. входные данные вводится 2 числа - a (вещественное) и n (целое неотрицательное). выходные данные необходимо вывести значение an.

Function power (a: real; n: longint): real; var   i: longint;   p: real; begin   if n=0 then power: =0   else begin       p: =a;       for i: =2 to n do p: =p*a;       power: =p       end end; var   a: real;   n: integer; begin   write('введите основание и показатель степени: ');   read(a,n);   writeln('результат: ',power(a,n)) end. пример введите основание и показатель степени: 13.64 6 результат: 6440005.25769131

Вот простейший вариант, где вводятся соответственно стороны 1-го и 2-го треугольников. program triangles; var a1,b1,c1,a2,b2,c2: integer; begin writeln('введите стороны первого треугольника.'); read(a1,b1,c1); writeln('введите стороны второго треугольника, соответственно сторонам первого.'); read(a2,b2,c2); if ((a1=a2) and (b1=b2) and (c1=c2)) then writeln('да, треугольники равны.') else writeln('нет, треугольники не равны.'); end.

попробуйте так (turbo pascal):

program 1;

var s: string;

c: integer;

begin

write('vvedite nazvaniye zhivotnogo');

read(s);

writeln('vvedite kolichestvo syedennyh gribov');

readln(c);

writeln(s, ' ', 'syest', ' ', c, ' ', 'gribov');

end.