Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ помогите с задачей на завтра

Автор: pupsic 16.02.2007 4:14

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

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.
пожалуста sad.gif

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

Автор: Volvo as guest 16.02.2007 4:21

Почти правильно... Только лишние 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 16.02.2007 4:23

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

Автор: pupsic 16.02.2007 12:58

спасибо так работает good.gif