Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Sasha280405
30.12.2022 15:19 •
Информатика
Дано действительно x, не равное 0, и натуральное n. вычислить x^n, используя цикл for информатика
Ответ:
Evelynimmortal
09.10.2020 12:38
Var
n,x,s,i:integer;
Begin
Readln(x,n);
s:=1;
For i:=1 to n do
s:=s*x;
Writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
YAKOT1
26.07.2020 17:28
Какие ты знаешь преимущества у робота?...
АнанасикиРулят
29.10.2021 00:12
Тема: Знакомство с IDE Сделать: конспект в Тетрадь по данной теме....
nikitkanikita1
12.09.2021 19:27
Написати програму, яка знаходить значення виразу: n=(k-4g+3)/(g-1), де у та k потрібно ввести зклавіатури, при цьому g та k- цілі числа. Потрібноперевірити ОДЗ, тобто...
lele4
28.11.2022 07:10
Керує роботою всіх пристроїв компютера...
нона57
28.11.2022 07:10
Введите три числа a,b,c. найдите сумму двух наибольших из них....
НастяЛайк111
16.05.2020 13:38
с тестом :{ 1.выберите выражение не являющейся многочленом:1) 4x³ 2)15ab + 113)7d² + 11/p 4) 7/11x + 8y 2.Найдите значение выражения 13x+4xy при x=5, y=-6: 1) 39 2) -55...
123polinapolina
12.08.2021 01:10
Вкажіть сполуку, у якій Фосфор виявляє проміжний ступінь окиснення: H3PO4 Ca3P2 P2S3 PH3 Питання №2 ? Вкажіть, як називається вказаний процес і скільки електронів бере...
sonyachibineva
02.11.2022 09:55
Дано высказывание В: «Все четырехугольники является прямоугольниками или ромбами». Постройте его логическую структуру и обоснуйте значение истинности. Постройте отрицание...
DIXIS775
19.03.2020 08:15
X2 - 2x - 8=0 решите через дискриминант...
Darina20152015
04.01.2020 17:11
Найти скорость автомобиля в м/с если он за 10 минут проехал 20 километров...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Var
n,x,s,i:integer;
Begin
Readln(x,n);
s:=1;
For i:=1 to n do
s:=s*x;
Writeln(s);
end.