tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дано вещественное число
Дано вещественное число а и целое число n(> 0) вывести а в степени n: а в степени n=а*а*а**а(числа а перемножаются n раз).
Отличница2013
2 18.03.2019 22:10
0
Ответы
Kazybek2005
26.05.2020 01:23
var a,k:real;
n:integer;
begin
readln(a,n);
k:=a;
while n<>1 do begin
n:=n-1;
a:=a*k;
end;
writeln(a);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
PowerSell
04.08.2019 08:20
Между всеми символами строки вставить символ - . формат ввода: s - строка формат вывода: t - новая строка пример ввода: primer пример вывода: p-r-i-m-e-r...
Хелена007
18.10.2019 20:08
Добрый вечер! решите по информатике. заранее ! ...
Misha91111
18.10.2019 19:53
Контрольная работа. можете до следующей пятницы решить ...
vgjfgadg
10.12.2021 14:14
У исполнителя Вычислитель две команды, которым присвоены номера: 1. – умножить на 5; 2. – вычесть 2. Первая команда увеличивает число в 5 раз, вторая уменьшает его на 2....
опшпищи
10.12.2021 14:15
В чем заключается преимущество шинной архитектуры по сравнению с классической? разделение шины на три части можно дополнить устройствами арифметико-логическое устройство...
tomlinsondarya
10.12.2021 14:15
Некоторый алгоритм из одной цепочки символов получает новую цепочку следующим образом: записывается исходная цепочка символов в исходном порядке; записывается исходная...
nightlovell15
10.12.2021 14:17
Найти код вируса с расшифровкой...
robiya86
10.12.2021 14:17
ОЧЕНЬ НАДО Указать ошибки во фрагменте программы program m1; var a,b:real; begin b:=read(a) end; 1) неверный оператор присваивания; 2) переменная b должна быть типа integer,...
пандочка94
10.12.2021 14:19
Ландыши&васильки - 650 ландыши&лютики - 230 ландыши&(васильки | лютики) - 740 найдите ландыши&васильки&лютики...
Ladybagshca
10.12.2021 14:20
компьютер в системе человек - персональный компьютер: 1)самостоятельная надсистема 2)надсистема 3)подсистема 4) подсистема другой системы...
Популярные вопросы
Запишите данные молекулярные уравнения в виде полных и сокращённых ионных...
3
Скласти пам’ятку «Екологічні поради для збереження здоров’я»...
3
Мәтіннен берілген сөздердің қазақша баламасын табыңыз перевод...
3
Влияние государства на развитие культуры это хорошо или плохо...
2
Задание 1. При регистрации в компьютерной системе каждому пользователю...
3
Выделив полный квадрат, найдите наименьшее значение выражения y^2-2y+10y...
2
Відредагувати речення багато корисного для себе можна почерпнути як...
3
В каких поясах освещённости расположена: а) Евразия б)Австралия в) Южная...
1
Задание № 3. Перепишите и письменно переведите следующие предложения,...
2
1. Какие субъекты Федерации входят в состав ВосточноСибирского района?...
2
var a,k:real;
n:integer;
begin
readln(a,n);
k:=a;
while n<>1 do begin
n:=n-1;
a:=a*k;
end;
writeln(a);
end.