循环:程序阅读,写出程序的运行结果
一、程序阅读,写出程序的运行结果
1)program p431;
var
i,s,t:integer;
begin
t:=0;
s:=0;
for i:= -5 to 5 do
begin
t:=t+1;
s:=s+t+i;
end;
writeln('s,t=',s:10,t:10);
end.
{结果为:}
2)program p432;
var
p,m:integer;
begin
p:=20;
m:=2;
repeat
p:=p-m;
m:=m+3;
until m>p;
writeln('m,p=',m:10,p:10);
end.
{结果为:}
3)program p433;
var
a,n:integer;
begin
n:=6;
a:=0;
while n>1 do
begin
a:=1;
repeat
write('*');
a:=a+1;
until a>=n;
writeln;
n:=n-1;
end;
end.
{结果为:}
4)program p434;
var
i,j,k,s:integer;
begin
s:=0;
for i:=3 downto 1 do
begin
for j:=1 to 3 do
begin
k:=0;
repeat
k:=k+1;
s:=s+k;
until k=j;
end;
s:=s-k-1;
end;
write('s=',s);
end.
{结果为:}
5)program p5305;
var
s,i:integer;
begin
s:=0;
for i:=1 to 100 do
if (i mod 3=0) and (i mod 4=0) then s:=s+i;
writeln('s=',s);
end.
{结果为:}
i:integer;
begin
for i:=1 to 100 do
if (i mod 2)=0 then
begin
write(i:4);
if (i mod 5)=0 then writeln;
end;
end.
{结果为:}
7)program p5307;
var
i,j:integer;
begin
for i:=1 to 5 do
begin
for j:=5 downto i do write('+');
writeln;
end;
end.
{结果为:}
8)program p5308;
var
n,i,a1,a2,a3:integer;
begin
readln(n);
a1:=3; a2:=5;
write(a1:8,a2:8);
for i:=3 to n do
begin
a3:=a1+a2;
a1:=a2;
a2:=a3;
write(a3:8);
end;
end.
输入:10
{结果为:}
i,j, k,sum1,sum2:integer;
begin
sum1:=0;
sum2:=0;
k:=1;
while k<=10 do
begin
if (k mod 2=0) then
for i:=1 to 5 do sum1:=sum1+i
else
for j:=1 to 5 do sum2:=sum2+i;
k:=k+1;
end;
writeln(sum1, '':5,sum2);
end.
{结果为:}
10)program p5310;.
var
n:integer;
b,t:real;
begin
t:=1;
b:=1;
n:=2;
repeat
b:=b*n;
t:=t+b;
n:=n+1;
until n>8;
writeln(t:3:0);
end.
{结果为:}
二、.编写下列程序
1)人键盘输入20个整数,分别统计其中正数,负数和零的个数。
2)输出100以内能够被5整除余1的自然数。