Question

请学过pascal语言（也就是编程）的人来看看~

1.求2+4+6+……+99的值。
2.输入N，求1/1+1/2+3/1+……1/N的值。
3.求12+22+32+……+1002的值。
4.计算N！{N*(N-1)*(N-2)*……*3*2*1}。
5.先顺序输出26个英文字母，再倒序输出26个英文字母。
6.100以内，既能被3整除，又能被7整除的所有数。

请发家注意，这些全部要用pascal语言（编程）解决~请尽快~把题号和编程写完整~好的加分~

Answer 1

1.

program Noname0;
var i:integer;
s:longint;
begin
s:=0;
i:=2;
while (i<=99) do begin
s:=s+i;
i:=i+2;
end;
writeln(s);
Readln;
end.

******************************************************

2.

program Noname0;
var i,n:integer;
s:real;
begin
write('N=');
readln(n);
s:=0;
for i:=1 to n do
s:=s+1.0/i;
write(s);
Readln;
end.

************************************************

3.

program Noname0;
var i:integer;
s:longint;
begin
i:=12;
s:=0;
while (i<=1002) do begin
s:=s+i;
i:=i+10;
end;
writeln(s);
Readln;
end.

************************************************

4.

program Noname0;
var n:integer;
j:int64;
begin
write('N=');
readln(n);
j:=1;
while(n>1) do begin
j:=j*n;
n:=n-1;
end;
writeln(j);
Readln;
end.

********************************************

5.

program Noname0;
var ch:char;
begin
for ch:='a' to 'z' do write(ch,' ');
writeln;
for ch:='z' downto 'a' do write(ch,' ');
writeln;

Readln;
end.

********************************************************

6.

program Noname0;
var i:integer;
begin
for i:=21 to 100 do
if (i mod 21=0) then write(i,' ');
writeln;

Readln;
end.

Answer 2

第1、3个用for循环就可以了，第2个要注意实数的处理问题，第4个可能要用到高精度，第5个、6个也是循环