Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Yutik
20.04.2023 10:54 •
Информатика
Составить программу на языке паскаль ввести с клавиатуры вещественное число a и целое число n (> 0). вывести все целые степени числа a от 1 до n.
Показать ответ
Ответ:
MasterHacker
26.08.2020 21:08
Var a,an:real; n,i:integer;
begin
readln(a,n);
an:=1;
for i:=1 to n do
begin
an:=an*a;
writeln(a:3:2,'^',i,' = ',an:6:3);
end;
end.
Пример:
2.0 5
2.00^1 = 2.000
2.00^2 = 4.000
2.00^3 = 8.000
2.00^4 = 16.000
2.00^5 = 32.000
0,0
(0 оценок)
Ответ:
coopersmith
26.08.2020 21:08
Var
a: real;
n: integer;
begin
read(a, n);
for var k := 1 to n do
begin
write(power(a, k), ' ');
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
lera1038
03.05.2023 19:57
Определите информационный объем аудио файла длительностью звучания которого составляет 10 секунд при частоте дискретизации 22,05 кгц и разрешении 8 битов...
Yotuberik
03.11.2021 03:14
C# работа с файлами сформировать два файла. в один из них поместить фамилии пяти ваших знакомых, а в другой - номера их телефонов. составить программу, которая по номеру телефона вашего...
polinaabramova10
10.09.2021 19:07
Як буде виглядати адреса електронної пошти для абонента audit, підключеному до провайдеру cityline, що перебуває в україні?...
stefanikolaeva
18.03.2023 00:11
По ! заполнить массив из 15 элементов (через команду ввода; через генератор случайных чисел) и вывести на экран....
альбинка28
04.09.2022 01:17
Для шифровки каждой буквы слова используюестя двузначное число.известно что бука к кодируется числом 15.среди слов торт ежик станок беседа есть слова,кодируемые поледывательностью...
JeanSu
04.08.2022 02:00
Составить диалог на тему ”көктем мейрамы”...
vladsmolin4554
05.08.2020 21:02
Где ставить запятую или точку и.данастасия вы лушая актриса ...
aidosashimbek200
20.07.2020 04:00
Сторони трикутника дорівнюють 4см,5см,6см. знайдіть довжину медіани,проведеної до сторони завдовжки 5см(будь-ласка з усім щляхом вирішення)...
KPY3
08.09.2022 15:36
(x*2.5-4.8)*2.5=50.5 решите уравнение...
ilnasgo54
06.03.2021 09:01
Уравнобедренной трапеции основания равны 6 см и 10 см, боковая сторона 14 см. найдите площадь трапеции...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(a,n);
an:=1;
for i:=1 to n do
begin
an:=an*a;
writeln(a:3:2,'^',i,' = ',an:6:3);
end;
end.
Пример:
2.0 5
2.00^1 = 2.000
2.00^2 = 4.000
2.00^3 = 8.000
2.00^4 = 16.000
2.00^5 = 32.000
a: real;
n: integer;
begin
read(a, n);
for var k := 1 to n do
begin
write(power(a, k), ' ');
end;
end.