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

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

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

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

@MAZUR777 · 20.04.2011, 09:50

Pascal

const
   N = 10;
var
   i: integer;
   m: integer;
begin
   m:=1;
   for i:=1 to N do begin
      writeln(m:3, '=> ^2=', m*m, ', ^3=', m*m*m);
      m:=m+i;
   end;
   writeln;
end.

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

Опции темы

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

Решение