Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
dali666
25.05.2021 20:36 •
Информатика
Дано целое число x и натуральное n. составьте алгоритм вычисления xn. проверьте алгоритм трассировкой. напишите программу на паскале. через while do
Показать ответ
Ответ:
rusalochka1999p08s2t
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 оценок)
Популярные вопросы: Информатика
aimnura73
24.04.2023 01:16
Сколько бит видеопамяти требуется на 1 пиксель для хранения 2-х, 4-х , 8-ми, 16-ти, 32-х, 64-х-цветового изображения. записать формулу для определения количества цветов...
aresubject1701
24.04.2023 01:16
Program vika; var x, y : integer; begin writeln ( ведите x ); readln (x); writeln ( ведите y ); readln (y); if (x 0) and (y 0) then writeln ( в 1 ) else (x 0) and (y 0)...
Scucorif
30.05.2021 19:41
Информация сообщения занимает 50 строк по 47 символов в строке сколько символов в алфавите если все сообщение содержит 2350 байт напишите с решением...
Pasha2322
30.05.2021 19:41
Какое имя файла нельзя использовать в операционной системе windows и почему?...
vvkim87
27.12.2021 21:23
Написать программу на яп паскаль для вычисления площади треугольника по его сторонам ab, bc, ca (формула герона). программу написать на 13 строк....
lera5053
11.09.2022 09:43
40 , кратко ответьте на вопросы по информатике! ...
FoxyDi
31.03.2020 09:52
Вводится радиус мячика и сторона квадрантного отверстия. вывести на экран попадет ли мячик в отверстие. По языку программирования Pyton....
QwErtY314455667
07.02.2021 18:33
С ПРОГОЙ В ПАСКАЛЕ 4. Общие требовання к выйду работ Разработка игры на языке программирования Паскаль в приложении Pascal ABC. Net. Использование дружественного и понятного...
Dispasito
29.07.2022 03:42
С ПРОГРАМКОЙ В ПАСКАЛЕ 4. Общие тре Разработка игры на языке программирования Паскаль в приложения Pascal Использование дружественного и полятного пользователям интерфейса,...
sentyakovv
16.06.2020 13:55
Программное обеспечение;строение компьютера;программирование;база данных...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.