помогите с задачей на завтра, на циклы Опции

[pupsic]

дано два числа а и к . найти а в степени к.

uses crt;
var
 result:integer;
i:integer;
base,n:integer;
begin
writeln('n,base');
readln(n,base);
Begin
result:=1;
for  i:=1  to n do
Result:=result*base;

end;
writeln('result=,');
readln;
end. 

пожалуста

Тэги наоборот поставил... сначала надо [cоde=pas], а уже потом [/cоde]
мисс_граффити

Сообщение отредактировано: мисс_граффити - 16.02.2007 5:10

[Volvo as guest]

Почти правильно... Только лишние Begin/End в программе, да и не распечатывается результат... Вот так попробуй:

uses crt;
var
  result:integer;
  i:integer;
  base,n:integer;

begin
  writeln('n,base');
  readln(n,base);

  result:=1;
  for i:=1 to n do
    Result:=result*base;

  writeln('result=', result);
  readln;
end.

[mamont001]

Ну начнем из далека:
1.Неправильно стоят теги.
2. {$TELEPHATY ON}
a=base
n=k
Угадал?
{$TELEPHATY OFF}
3. Зачам тебе crt?
4. что у тебя не правильно?

Сообщение отредактировано: mamont001 - 16.02.2007 4:23

[pupsic]

спасибо так работает