• Вопрос по информатике:

    Вывести на экран квадрат первых 10 натуральных чисел.

    • Автор:

      fisherbrandt
  • Ответ:

    Если нет подвоха, то просто умножаешь в цикле до 10 и все

    program Program;

    uses crt;

    var i : integer;

    begin

       for i := 1 to 10 do

           writeln (i*i);

    end.

    • Отвечал:

      romeojqzl

    Ответ:

    var i: integer;

    begin

    for i:=1 to 10 do

    begin

    writeln(i,' в квадрате - ',sqr(i));

    end;

    end.

    • Отвечал:

      alyssaaisa

    Ответов нет, но ты это испарвиш!