Задать вопрос
19 июля, 18:26

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

+1
Ответы (1)
  1. 19 июля, 19:53
    0
    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.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «вывести квадраты и кубы 10 чисел следущей последовательности: 1, 2, 4, 7, 11, 16 ... ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы