программа возведения натурального числа в квадрат

← →
Irishka (2007-04-09 17:16) [0]

Не могу составить программу возведения натурального числа в квадрат при помощи for, используя следующую закономерность:
1*1=1
2*2=1+3
n*n=1+3+5+7+9..+2n-1.

← →
clickmaker © (2007-04-09 17:19) [1]

лаба? курсовичок?

← →
Irishka (2007-04-09 17:21) [2]

Лаба, завтра край сдать!!!

← →
Ega23 © (2007-04-09 17:22) [3]

mod, div, for + F1

← →
>>DEATH<< (2007-04-09 17:35) [4]

чета типа
k,i,n:integer
k:=0;
for i:=1 to n do k:=k+2*i-1;

← →
{RASkov} (2007-04-09 18:16) [5]

var N: Integer; function GetSimpleNums: String; var J: Integer; begin Result:=""; for J := 1 to 2*N-1 do if ((J mod J)=0) and ((J mod 2)<>0) then if J<2*N-1 then Result:=Result+IntToStr(J)+"+" else Result:=Result+IntToStr(J); end; begin Memo1.Clear; for N := 1 to 15 do Memo1.Lines.Add(Format("(%d * %d = %d) = [%s]", [N, N, N*N, GetSimpleNums])); end;

программа возведения натурального числа в квадрат Найти похожие ветки