В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
gwetyalina1345
gwetyalina1345
09.02.2021 23:00 •  Информатика

Написать программу на паскале вывести квадраты и кубы 10 чисел следущей последовательности: 1, 2, 4, 7, 11, 16..

Показать ответ
Ответ:
turuo
turuo
31.07.2020 01:27
Данная последовательность -- последовательность центральных многоугольных чисел. Вычисляется по формуле a(n) = n*(n+1)/2 + 1. Или a(1) = 1, a(n+1) = a(n) + n.

Var
  a, i: integer;
Begin
  a := 1;
  for i := 1 to 10 do
  begin
    writeln('base=', a, 'square=', a*a, ' cube=', a*a*a);
    inc(a, i);
  end

End.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота