…»'>
37

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

22 февраля 2023

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

категория: информатика



88

Var a, i: integer; begin a: =1; for i: =1 to 10 do begin writeln (a, ' => ', sqr (a) , ', a*a*a); a: =a+i; end; end.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...