1. 

   rietaki New Member

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

    

   rietaki, 4 янв 2010

   #1
2. 

   BloodBlade New Member

   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.

    

   BloodBlade, 4 янв 2010

   #2

Ваше имя или e-mail:

Пароль:

Забыли пароль?

Запомнить меня