1. Информатика
  2. Напишите программу которая

Напишите программу которая вводит натуральные числа a и n и вычисляет a^n без использования операции возведения в степень.

89043780617 89043780617    1   12.08.2019 04:20    25

Ответы
sonyaway12 sonyaway12  04.10.2020 12:41
Var a, n, i: integer;
  r: longint;
 begin
  r := 1;
  readln(a, n);
  for i := 1 to n do
  r := r * a;
  write(r);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
простоНастя2228 простоНастя2228  04.09.2020 00:25
Имеет ли фраза %77$.dfjмлд, r#&​ информационный объем?...
AriPanowa2005 AriPanowa2005  02.09.2020 23:50
1. Посчитайте в байтах информационный объем сообщения «Информация измеряется в байтах и в битах ​...
podlubnijp08ieo podlubnijp08ieo  04.09.2020 00:22
Алфавиттік тісіл деп нені айтамыз...
TaiGaaara TaiGaaara  02.09.2020 23:49
Неликтен барлык акпараттар килобайтта олшенбейди​...
milka230614 milka230614  25.09.2019 13:40
Дан одномерный массив, найти сумму всех нечетных отрицательных чисел этого массива. pascal...
juliyakam juliyakam  25.09.2019 13:40
Изменить программу так,чтобы я сам вводил число которые будут меняться,а не рандомно. var a: array[1..100] of integer; i,n,t: integer; begin write( введите размерность: ); readln(n);...
smyslovgleb200 smyslovgleb200  17.02.2021 20:51
Какую мощность развивает двигатель троллейбуса если он едет равномерно со скоростью 36 км в ч а коэффициент сопротивления движению 0.05...
EvkShaih EvkShaih  17.02.2021 20:51
15. Число Анаименьшее целое решение неравенства — 3 x 2. А натуральноечисло L наименьшее решение этого женеравенства. Найдите значение L — К.А) 6B) -6C) 0D) 3E) 4​...
xokkey1 xokkey1  17.02.2021 20:51
Выберите из текста слова с орфограммами изученными по теме имя прилагательное Начертите и заполните таблицу примерами и каждый вид обозначьте и записанные условия выбора соответствующей...
MegaTanker MegaTanker  17.02.2021 20:51
Алгебра. Номер 2. Решить по алгоритмам. ​...

Популярные вопросы