Вывести квадраты и кубы 10 чисел следущей последовательности: 1, 2, 4, 7, 11, 16..
Вывести квадраты и кубы 10 чисел следущей последовательности: 1, 2, 4, 7, 11, 16..
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы