微机的PASCAL循环试题会的进。

发布网友发布时间：2023-11-21 19:17

共3个回答

热心网友时间：2023-11-29 12:11

第一题:
var i,s:integer;
begin
for i:=1 to 1000 do
if (i mod 3=0)and (i mod 5=0) then s:=s+i;
writeln(s);
end.
第二题:
var n,i,j:longint;
begin
readln(n);
for i:=1 to n do
begin
for j:=1 to i do write(j);
if i>1then for h:=i-1 downto 1 do write(h);
end;
for i:=n downto 1 to
begin
for j:=1 to n-1 do write(j);
for h:=n-2 downto 1 do write(h);
end;
end.
第三题:
var a,b,c:integer;
begin
for a:=1 to 100 do
-for b:=1 to 100 do
--for c:=1 to 100 do
---begin
-----if a*3+b*2+c div 2 =100 then
------if a+b+c=100 then begin write(a,' ',b,' ',c);
-------------------------------exit; end;
---end.
end.
第四题：
var s,p:string;
i,h,m,t:integer;
begin
p:='';
readln(s);
h:=length(s);
for i :=1 to h do
if ord(s[i])<90 then p:=p+s[i] else if p<>''
then begin writeln (p); p:=''; m:=m+1; t:=0; end;
if p<>'' then begin writeln(p);writeln(m+1);end else
writeln(m);
end.

热心网友时间：2023-11-29 12:12

Pascal是一种编程语言.
不过我把这语言的语法都给忘记了哦,还给老师了

热心网友时间：2023-11-29 12:12

悬赏5分太寒了