В колонках играет - Godsmack - I am Fucking Hate you
Настроение сейчас - Крут0=))

Спешил 4 форбидэн флаффи

Так, в школе просили, вот выкладываю=)
Програ нахождения n-ной степени числа(Pascal)

program jopa;
uses crt;
var a:real;
stepen:integer;
result:real;

function count(b:real;n:integer):real;
var i:integer;
s:real;
begin
i:=1;
s:=b;
while i < n do
begin
inc(i);
s:=s*b;
end;
result:=s;
end;

Begin
Writeln(введите Число и его степень:');
readln(a,stepen);
writeln('число '+a+'в степени '+stepen+'равно '+count(a,stepen));

readkey;

End.


ЗbI: ФAu/\ ECTb Ha BToPoM KoMпе, 'c:\asd.pas'