Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
хабиб36
15.03.2022 08:54 •
Информатика
Дано целое число x и натуральное n. составьте алгоритм вычисления xn. проверьте алгоритм трассировкой. напишите программу на паскале. через while do
Показать ответ
Ответ:
cheburek20
16.08.2020 16:58
Var
x, n, ans:integer;
begin
Readln(x, n);
while (n > 0) do
begin
ans := ans + x;
n:= n - 1;
end;
Writeln(ans);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ystefaniv
15.07.2022 07:20
либо блок-схему, либо на Паскаль написать. Дана сумма начисленной заработной платы. Из этой суммы необходимо удержать 12% на подоходный налог, 1% на профсоюзный налог, 1%...
Tandy
18.11.2022 23:01
ОЧЕНЬ Во всех заданиях чертить схемы! В номере 21 определить значение логических схем и записать ответ!...
vNeronRazerv
20.01.2020 22:05
Домашнее задание для 8 класса Постройте логическую схему для функцииF=(A⋁B) ̅∧C∧D ̅Постройте логическую схему для функцииF=(A ) ̅∨B ∧C ̅∨D...
natalik2038
07.06.2023 13:18
Запиши число 14735 в развёрнутом виде, начиная со старшего разряда....
StilesStilinsky
24.07.2020 16:43
1.Вычислите значение целочисленной переменной c при a = - 22 и b = 4: b = a // b + b c = a % b + a В качестве ответа укажите одно число. 2.Кролик Клевер пошел в пекарню за...
KarakatitsaKrutitsa
23.11.2022 16:14
информатика, Access, прислать готовым документом, если...
DariaDosh
19.09.2020 14:42
Напишите программу, которая бы выполняла перевод единиц измерения. За основу можете взять код, приведенный в уроке. В программе должны быть: 1. Ввод значения – функция input()....
AAOO
03.06.2021 02:42
Решить графически уравнение cos(x2)=1/x , построив графики функций в электронных таблицах на отрезке [-3π; 3π] с предварительно установленным шагом 0,2. ......
pavel266
12.03.2023 02:27
Устоновите соответствие между названиями инструментов и их пиктограмм в 3д редакторе вlender...
даладно30раз
08.09.2022 07:10
1. Какой необходимо прописать код для создания объекта? 2. Каким кодом можно проверить успешность подключение к БД? 3. Что необходимо для выполнения запросов в БД? 4. Как...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
x, n, ans:integer;
begin
Readln(x, n);
while (n > 0) do
begin
ans := ans + x;
n:= n - 1;
end;
Writeln(ans);
end.