请写出这三个简单的PASCAL程序

来源：百度知道 编辑：UC知道 时间：2024/06/06 05:59:11
1.编程求出下式中N的最大值:2*2+4*4+6*6+...N*N<1500.
2.警察局抓了A,B,C,D四名偷窃嫌疑犯,其中有一人是小偷.审问中:
A说:"我不是小偷."
B说:"C是小偷."
C说:"小偷肯定是D."
D说:"C冤枉人!"
3.打印输入的N个整数中最大,最小数及其序号.
现在已经知道四人中三人说的是真话,一人说的是假话.问到底谁是小偷.
请写出程序,不要太难啊.(可以加分）
是2X2+4X4+6X6+...NXN<1500啊!(X是乘号)

program t1;
var s,n:integer;
begin
s:=0;
n:=0;
repeat
n:=n+2;
s:=s+n;
until s>=1500;
writeln(n-2);
end.

program t2;
假设只有小偷撒谎，好人都是诚实的，那么C就是小偷，如果没有这个滑稽的前提，无法确定小偷，什么语言都写不出程序。

程序1(在Delphi下运行的):
procedure TForm1.Button1Click(Sender: TObject);
var
iTotal,iSum,k : integer;
begin
memo1.Lines.Clear;
iTotal := strToInt(edit1.Text);
memo1.Lines.Add('iTotal=' + intToStr(iTotal));
iSum := 0;
k := 2;
while iSum < iTotal do begin
memo1.Lines.Add('-----------------');
memo1.Lines.Add('k=' + intTostr(k));
memo1.Lines.Add('iSum = iSum + ' + intToStr(k) + '*' + intToStr(k));
iSum := iSum + k*k;
memo1.Lines.Add('iSum=' + intToStr(iSum));
memo1.Lines.Add('-----------------');
k := k + 2;
end;
memo1.Lines.Add(IntToStr(k-2));
end;