Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
JICNX
13.02.2020 14:33 •
Информатика
(pascal abc)вывести на экран тремя используя операторы цикла for, while, repeat) кубы всех целых чисел из диапазона от a до b (a< =b) в обратном порядке
Показать ответ
Ответ:
lenkindom1
31.07.2020 01:27
Var
a, b, i:integer;
Begin
write('Введите значения a и b: ');
read(a, b);
writeln('Цикл for');
for i := b downto a do write(i*i*i, ' ');
writeln();
writeln('Цикл while');
i := b;
while i >= a do
begin
write (i*i*i, ' ');
dec(i);
end;
writeln();
writeln('Цикл repeat');
i:=b;
repeat
write(i*i*i, ' ');
dec(i)
until i < a
writeln();
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
BlackGolsi
04.02.2023 03:36
Створіть новий файл Python та підключіть відповідний модуль. Створіть нове вікно світло червоного кольору із розмірами 600 на 700 пікселів із забороною змінювати розміри вікна. Створити...
Julianovikova6
14.01.2020 17:57
Комета Бармалея Как известно, комета Бармалея видна с Земли каждые C лет. Любопытно, что это происходит в годы, кратные C , т.е. C , 2 ×C , 3 ×C и т.д. Не каждому суждено увидеть...
витя10
27.10.2022 10:13
Изучи программный код и определи его назначение...
Lia20020313
08.05.2022 15:00
Установи соответствие между форматами файлов и их типами.форматкомпанииMicrosoft,AVI (Audio-видеороликVideoсозданInterleaved)Видеоредактоpom MovieMakerWMV (WindowsMedia Video)форматфайлов,полученных...
ressoli444
13.06.2021 22:18
По информатике таблицу заполнить...
солнышко279
19.05.2022 13:49
Діагональні ромба дорівноют 12 і 16 см .знайдіть периметер ромба...
TheAlexKillGame
04.06.2020 00:19
What are the furthest countries to uzbekistan...
usenova1993
10.06.2021 12:11
Заданы соответствующие измерения кирпича a, b, c. Составь программу, которая вычисляет сумму 1/2 и 1/3 объема данного кирпича...
ggez2
26.01.2020 12:22
сообщение составленно с сивмального алфавита ,содержит 16 символов. Другое сообщение содержит 8 символов...
cksenia112
30.09.2020 23:29
Сколько конструкций условного оператора было изучено? Назовите их....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a, b, i:integer;
Begin
write('Введите значения a и b: ');
read(a, b);
writeln('Цикл for');
for i := b downto a do write(i*i*i, ' ');
writeln();
writeln('Цикл while');
i := b;
while i >= a do
begin
write (i*i*i, ' ');
dec(i);
end;
writeln();
writeln('Цикл repeat');
i:=b;
repeat
write(i*i*i, ' ');
dec(i)
until i < a
writeln();
End.