Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
MrCrative25
01.03.2023 19:56 •
Информатика
Написать программу получить степени a: a,a^2, меньше чем b делать в pascal abc,
Показать ответ
Ответ:
nikbayy
06.10.2020 09:56
Var a,b,p:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
p:=a;
while p<b do
begin
write(p,' ');
p:=p*a;
end;
end.
Пример:
a = 2
b = 20
2 4 8 16
0,0
(0 оценок)
Популярные вопросы: Информатика
whitesnaff
23.11.2020 10:26
Цифры под изображением слайдов в Сортировщике слайдов программы MS PowerPoint означают …Можно получить доступ к шаблонам презентаций и к шаблонам оформления На моем...
evgenypuchnin2
23.11.2020 19:53
ОЧЕНЬ решите задания на фото....
Ladinikit
07.07.2020 06:33
Пуск-все програмы-стандартные-paint что это за действие?...
proshamanfeed
06.03.2022 00:38
Примитивом в графическом редакторе называют?...
prasolovadd
19.05.2020 01:29
При каких приёмов автор добивается комичного эффекта в рассказе Девечья память ? Аргументируйте свой ответ....
tanabybka
28.01.2023 01:04
Вычислите молекулярные массы:HCL,NaF,H2SO4...
zhanelkenesbekova
18.01.2021 02:09
10. Первая американская опера Дж.Гершвина «Порги и Бесс» пронизана интонациями А) джаза Б) рока В) кантри 11. Дополни фразу: «Фридерик Шопен – великий композитор»....
allan1012
18.01.2021 02:09
Записать происхождение выделенных красным цветом слов найдите в интернете происхождение этих слов обязательно укажите откуда оно заимствованно. Карандаш.., костюм,...
kjhf1234554321
22.10.2021 15:12
геометрия 29(б, г, е, з, к) ...
krayushkinaalina
04.05.2022 04:20
Тік төртбұрыштың ауданы 78 см,ал ені 6 см.Тіктөртбұрыштың қабырғасының ұзындығын тап....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
p:=a;
while p<b do
begin
write(p,' ');
p:=p*a;
end;
end.
Пример:
a = 2
b = 20
2 4 8 16