Delphi 7

[JAKS]

Помогите плз с простенькими задачами в delphi:

1. Составить и отладить программу вывода в Memo всех целых чисел из отрезка [-10, 10].


2. Составить и отладить программу вычисления квадрата суммы всех натуральных чисел из отрезка [N, M], где N<M.

[Mad_Cat]

1)

var i:integer;
begin
for i:=-10 to 10 do
memo1.lines.add(inttostr(i));
end;

2

var m,n,c:Longint;
begin
m:=strtoint(edit1.text);
n:=strtoint(edit2.text);
c:=0;
while n<=m do begin
c:=c+n;
n:=n+1;
end;
showmessage(floattostr(sqr(c)));
end;

[JAKS]

Добра тебе! Спасиб!