Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Animerica20045
23.10.2021 13:00 •
Информатика
Составьте программу вычисления выражения (разными применяя каждый из операторов while,repeat,for) a^p, где p - целое число. pascal / надо.
Показать ответ
Ответ:
irinapak1985
04.08.2020 10:00
1)Это с
var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1; i:=0;
while i<p do
begin
c:=c * a;
inc(i);
end;
writeln(c);
readln;
end.
2) Это с
var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1; i:=0;
repeat
c:=c * a;
inc(i);
until i=p;
writeln(c);
readln;
end.
3) Это с
var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1;
for i:=1 to p do
c:=c * a;
writeln(c);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Polinakuzmina32
12.11.2020 03:57
Пяти летчикам испытателям – Сергееву, Беляеву, Корниенко, Пугачевскому и Мгеладзе – предстояло испытать пять типов самолетов: ЯК, ИЛ, МИГ, ЛА и ТУ. В первый день Пугачевский...
Zayats2007
31.07.2021 20:47
Информатика Можно ли блоки условных операторов вкладывать друг в друга ?...
prisnik1252
03.01.2023 23:06
1С и 3А перевести во вторую систему счисления (предварительно переведя ее в 10сс и потом обратно во 2сс)...
жека596
10.08.2022 19:27
Информатика Какой тип ветвления алгоритма представлен на рисунке ...
Luna28u
28.05.2020 18:36
Дан условный оператор: if (a 16) then y:=a else y:=a+9. Что является условием...
lisafoxxxxxxxx
06.03.2022 08:48
Дуже потрібно схід сонця в Scratch online ...
Захар1191928
01.07.2022 04:04
Информатика Смотреть фото! Умоляю!!(((...
ярослав6рюховецкий
26.08.2020 20:52
Повороты. Урок 2 Верных ответов: 2 3 4 5 6 7...
BoGDAn4iK2015
01.08.2022 14:36
Водитель автобуса является формальным или неформальным исполнителем?...
Vexicy
08.02.2022 08:57
С++ Программирование Задача №329. Учащиеся без троекВвод и вывод данных производятся через стандартные потоки ввода-вывода.Выведите фамилии и имена учащихся, не имеющих троек...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1; i:=0;
while i<p do
begin
c:=c * a;
inc(i);
end;
writeln(c);
readln;
end.
2) Это с
var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1; i:=0;
repeat
c:=c * a;
inc(i);
until i=p;
writeln(c);
readln;
end.
3) Это с
var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1;
for i:=1 to p do
c:=c * a;
writeln(c);
readln;
end.