Школа программиста

Забыли пароль?
[задачи] [курсы] [олимпиады] [регистрация]
Логин:   Пароль:    
Скрыть меню
О школе
Правила
Олимпиады
Фотоальбом
Гостевая
Форум
Чат
Архив олимпиад
Архив задач
Состояние системы
Рейтинг
Курсы
Новичкам
Работа в системе
Алгоритмы
Курсы ККДП
Дистрибутивы
Ссылки

HotLog


 
{ арифметические алгоритмы: возведение целого числа в натуральную степень  }
{ Вариант 1 (обычный)                                                      }
{ ------------------------------------------------------------------------ }
var x,y:integer;

function Degree(a,b:integer):longint;
var r:longint;
begin
     r:=1;
     while b>0 do begin
        r:=r*a;
        b:=b-1;
     end;
     Degree:=r;
end;

begin
    writeln('введите число и (через пробел) степень числа');
    readln(x,y);
    writeln(Degree(x,y)); { print x^y }
end.


Красноярский краевой Дворец пионеров, (c)2006 - 2017, ICQ: 151483