Войти Регистрация Спроси ai-bota

Вывести в столбик кубы целых чисел от 10 до 20, используя цикл while

Ответ:

67679

25.05.2020 11:23

var
i:integer;
begin
i:=10;
while i<21 do
begin
writeln(i*i*i, ', ');

i:=i+1;
end;

end.

0,0(0 оценок)

Популярные вопросы: Информатика

Женя8а

06.04.2023 06:38

Дан условный оператор: if(a 13)theny:=aelsey:=a+5 . Условием является все ответы верные...

MrZick33446

19.02.2020 08:43

4. Выразите через базовые множества М, N, К закрашеннуюобласть:...

ladygagav

02.04.2023 16:32

Сравните(поставьте знак отношения): , , = 1. 100000 кбайт 100 мбайт 2. 512 бит 50 байт 3. 1024 байт 1 кбайт 4. 8 гбайт 80000 мбайт 5. 16 байт 128 бит...

милаха3451

02.04.2023 16:32

Совокупность всех компьютерных программ (2 слова). пакет программ, работой компьютера и обеспечивающий взаимодействие между человеком и компьютером. (2 слова). прикладные программы...

Нурка11лиса

02.04.2023 16:32

Трое друзей, футбольных болельщиков, спорили о результатах предстоящего турнира. мнение юрия: «вот увидите, барселона не станет первой. зенит будет первым». мнение виктора:...

AlexandraB11092003

02.04.2023 16:32

Написать программу поиска значения максимального элемента массива...

ayakabdadhev

14.01.2021 05:42

1. Ввести три числа: цену пирожка (два числа: рубли, потом – копейки) и количество пирожков. Найти сумму, которую нужно заплатить (рубли и копейки)Пример:Стоимость пирожка:12...

burmistrowkiri

26.10.2021 10:40

Написать программу в паскале. 3. нужно написать обязательно через циклы, без использования процедур и функций, только циклы....

venerkaasanova

13.09.2022 14:06

На тарифах системы расчетов сотовой связи первые 2 гб трафика в месяц предоставляются на максимально возможной скорости - 14,4 мбит/с.по истечении порога в 2 гб,услуги оказывается...

gulmagomedova1p01bx7

22.11.2022 05:20

Установите закономерность и замените вопросительный знак число:...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку