Вывести квадраты и кубы 10 чисел следущей последовательности

@Pddeshnik · Регистрация: 20.04.2011

Author24 — интернет-сервис помощи студентам

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

@KaiTheCat · 20.04.2011, 10:56

Pascal

var
  i,n,m: integer;
Begin
  n:=1;
  m:=0;
  for i:=1 to 10 do
    begin
      writeln(n,' ',sqr(n),' ',sqr(n)*n);
      inc(m);
      n:=n+m;
    end;
  readln
End.

@Pddeshnik 0 / 0 / 0 Регистрация: 20.04.2011 Сообщений: 6
		1
	Вывести квадраты и кубы 10 чисел следущей последовательности 20.04.2011, 09:42. Показов 6043. Ответов 1 Метки нет (Все метки) вывести квадраты и кубы 10 чисел следущей последовательности: 1, 2, 4, 7, 11, 16 … 0

	20.04.2011, 10:56

Опции темы

Вывести квадраты и кубы 10 чисел следущей последовательности

Решение