Разработать программу да Delphi

26.04.2010, 17:06. **Показов** 893. **Ответов** 2

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

Люди выручайте сестренка сожрет меня щас не может решить задачу. Моя жизнь в ваших руках!!! Bычислить сумму первых n элементов ряда: 2+4+6+.. Для решения задачи следует разработать программу, в которой предусмотрен ввод числа n с клавиатуры, выполняются вычисления и выводится результат.

@Puporev · 26.04.2010, 17:11

Pascal

var n,i,s:integer;
begin
write('n=');
readln(n);
s:=0;
for i:=1 to n do
s:=s+i*2;
write('S=',s);
readln
end.

@GDin · 28.04.2010, 12:03

Pascal

procedure TForm1.Button1Click(Sender: TObject);
var
i,n:integer;
elem:real;
sum:real;
begin
n:=strtoint(edit1.text);
 sum:=0;
 label1.Caption:=' ';
 for i:=1 to n do
   begin
   elem:=i*2;
   sum:=sum+elem;
   end;
 label1.Caption:=label1.Caption+FloatToStr(sum);
end;

Paguk
		1
	Разработать программу да Delphi 26.04.2010, 17:06. Показов 893. Ответов 2 Метки нет (Все метки) Люди выручайте сестренка сожрет меня щас не может решить задачу. Моя жизнь в ваших руках!!! Bычислить сумму первых n элементов ряда: 2+4+6+.. Для решения задачи следует разработать программу, в которой предусмотрен ввод числа n с клавиатуры, выполняются вычисления и выводится результат.

	28.04.2010, 12:03