pascal编程问题

pascal编程问题

(1)program 1;
var a,n,i,i1:integer;
c:array[1..50] of integer;
p:boolean;
begin
read(n);
for a:=1 to n-1 do
begin
for i:=2 to n-1 do
begin
i1:=i1+1;
if n mod i =0 then c[i1]:=i;
end;
for i:=1 to i1 do
if (c[i]=2) or (c[i]=3) or (c[i]=5) then write(a);
end;
end.

(2)program 2;
var a,b,n,n1,i,i1,i2:integer;
begin
repeat
a:=a+1;
for i:=1 to a-1 do
if a mod i =0 then b:=b+i;
for i:=1 to b-1 do
if b mod i =0 then n:=n+i;
until a=n;
writeln(n);
end.

(3) program 3;
var a,n,i:integer;
begin
read(a);
for i:=1 to a do
n:=n+a;
writeln(n);
end.

(4)不太会

(5) program 5;
var a,b,c,d,i,i1:integer;
begin
for i:=100 to 999 do
begin
a:=i mod 10;
b:=i div 100;
if a= b then write(i:5);
end;
end.

因为没有测试，可能有些语法错误，自己纠正一下啊。多多包涵~~

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息