Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
didocfofiffi
30.06.2021 04:32 •
Информатика
Вывести квадраты и кубы 10 чисел следующей последовательности: 1, 2, 4, 7, 11, 16, … . цикл for.
Показать ответ
Ответ:
angelinaguseyn
03.10.2020 10:37
var a, i: integer;
begin
a := 1;
for i := 1 to 10 do
begin
writeln(a:3, ' ', a*a:5, ' ', a*a*a:8);
a := a + i;
end;
end.
Тестовое решение:
1 1 1
2 4 8
4 16 64
7 49 343
11 121 1331
16 256 4096
22 484 10648
29 841 24389
37 1369 50653
46 2116 97336
0,0
(0 оценок)
Популярные вопросы: Информатика
Kristina162000
14.11.2022 02:51
Python. Создайте программу, запрашивающую у пользователя длину и ширину садового участка в футах. Выведите на экран площадь участка в акрах...
lili2003love12
30.01.2020 01:55
Створити файл автозапуску, де встановлюється: очистка екрана; відключення режиму відображення команд; виведення на екран відсортованого переліку каталогів...
VasyaPupkin2281488
13.07.2022 10:41
Как также выравнивать фото?...
dashasmirnova85
06.04.2020 11:18
Дан символ. Определи, данный символ управляющий или изображаемый. Символ: SOH управляющий изображаемый...
nickitasychev
13.01.2020 22:13
Сколько байт потребуется, чтобы закодировать изображение размером 600x800 пикселей палитрой из 16 цветов?...
АлиночкаБурова
13.01.2020 22:13
Дан массив из 100 целых чисел. Необходимо найти разность между количеством максимальных и минимальных элементов, содержащихся в этом массиве. Укажите возможный...
Aleksa413
21.04.2021 20:20
ПРАКТИЧЕСКИ ЗАДАНИЯ ТОЖЕ НААИШИТЕ КАК ДЕЛАТЬ ААААААААА Я НЕ ПОНИМАТЬЬ КАК ЭТО ДЕЛАТЬЬ...
1234567890ваня
23.03.2020 11:53
Три программы в паскале: вычислить арифметические выражения. При этом выбрать такую форму записи, чтобы количество «медленных» операций (умножение, деление) было...
Lera6807
30.01.2020 14:08
В каком из условных операторов допущена ошибка? *1) if b=0 then writeln(‘Деление невозможно.’);2) if a b then max:=a else max:=b;3) if (a b) and (b 0) then c:=a+b;4)...
dashkin21
22.11.2022 07:03
Выбери правильную команду присваивания. Ж:=9; D:=9; D=9; Ж=9; D=:9;...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
a := 1;
for i := 1 to 10 do
begin
writeln(a:3, ' ', a*a:5, ' ', a*a*a:8);
a := a + i;
end;
end.
Тестовое решение:
1 1 1
2 4 8
4 16 64
7 49 343
11 121 1331
16 256 4096
22 484 10648
29 841 24389
37 1369 50653
46 2116 97336