Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
tiamaressp035gw
26.06.2021 05:45 •
Информатика
Составьте программу вычисления выражения (разными применяя каждый из операторов while,repeat,for) a^p, где p - целое число. pascal / надо.
Показать ответ
Ответ:
Lerakadyrova
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 оценок)
Популярные вопросы: Информатика
Аха555
22.09.2022 08:50
Имеется полоска размером 1*N. Кузнечик стоит на первой клетке, далее он может прыгать вперед на 1 или 3 клетки. Сколько есть кузнечику добраться от начальной клетки до последней?...
darasnezko297
30.01.2020 00:14
Известно что в кодировке CP-1251 один символ занимает 1 байт. Определите информационный объем следующего сообщения: Для защиты от инфекций себя и окружающих необходимо в людных...
Jirnyi
15.01.2022 02:48
а если вы играеть в Вор оф тэнк то дам ак с премом...
larjon
26.05.2021 21:30
8 КЛАСС ИНФОРМАТИКА: По этим блок схемам написать программу на Кумире в тетради. Для решения можно воспользоваться тетрадью, учебниками или курсом...
IIvanMuratov2003
11.02.2020 17:56
Алгоритм создания и сохранения программы в python с использованием библиотеки pyGame.draw...
kitty67
04.02.2021 22:40
Для чего нужна линейка,транспортир,термометр,барометр,компас,телескоп,микромкоп...
naila79
26.03.2022 10:20
Закодировать любым кодирования информации (я люблю...
rjulia064
12.02.2023 04:48
Даны четыре целых числа. определить сумму тех из них, которые кратны трем. оператор цикла не использовать. в паскале.. , 20...
katyasha0504
15.04.2020 23:05
Убери лишние отступы и запусти программу.Подсказка:все команды должны выполняться по порядку!.1.S = input( Ты любишь купаться? )2. print(s + ? )3.print( а мне нельзя, я компьютер....
viktoria190290
27.03.2021 20:15
Отметь ряд химических элементов, в котором последовательно уменьшаются радиусы атомов: литий, натрий, калий бериллий, углерод, алюминий стронций, кальций, магний калий, барий,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.