| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Irishka ©   (2007-04-09 17:16:00) 

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

---

{RASkov}   (2007-04-09 18:16:00) [1]

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;

---

>>DEATH<<   (2007-04-09 17:35:00) [2]

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

---

Ega23   (2007-04-09 17:22:00) [3]

mod, div, for + F1

---

Irishka   (2007-04-09 17:21:00) [4]

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

---

clickmaker   (2007-04-09 17:19:00) [5]

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

---

Наверх