作业帮free pascal问题：用集合做：输入一组数,程序判断出最大和的连续4个数和最小和的连续4个数例：输入3456789:3456789345(就像这几个数围成一圈)
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/29 04:12:54
free pascal问题：用集合做：输入一组数,程序判断出最大和的连续4个数和最小和的连续4个数例：输入3456789:3456789345(就像这几个数围成一圈)
free pascal问题：用集合做：输入一组数,程序判断出最大和的连续4个数和最小和的连续4个数
例：输入3456789:3456789345(就像这几个数围成一圈)
free pascal问题：用集合做：输入一组数,程序判断出最大和的连续4个数和最小和的连续4个数例：输入3456789:3456789345(就像这几个数围成一圈)
program ysh(input,output);
var
st:ansistring;
i,max,min:longint;
a:array[1..1000] of longint;
begin
readln(st);
for i:=1 to length(st) do a[i]:=ord(st[i])-48;
for i:=i+1 to 2*length(st) do a[i]:=a[i-length(st)]; //展开,便于处理
max:=0;
min:=maxlongint;
for i:=1 to length(st) do
begin
if a[i]+a[i+1]+a[i+2]+a[i+3]>max then
max:=a[i]+a[i+1]+a[i+2]+a[i+3];
if a[i]+a[i+1]+a[i+2]+a[i+3]
free pascal问题：用集合做：输入一组数,程序判断出最大和的连续4个数和最小和的连续4个数例：输入3456789:3456789345(就像这几个数围成一圈)
free pascal怎样算集合元素个数
Free Pascal 和Pascal的区别?为什么竞赛都用Free Pascal?Free Pascal 和Pascal的区别?为什么竞赛都用Free Pascal?
用FREE PASCAL 做一个程序‘判断数是否是三位数’
pascal语言编程问题（free pascal求1—N中的素数的个数.(1
free pascal常见语句
求几道 初学 free pascal
free pascal 黑洞6174
free pascal问题问题共有三题,我是新手,1.输入一个自然数n（n
free pascal怎样产生随机数
求Free Pascal程序问题如下：第一行输入一个正整数n（1
free pascal 用for循环做 求所有的三位数中十位数能被个位数和百位数之和整除的数.
查一下错Free Pascal: 有一个三位数,它的各位数字之和的11倍恰好等于它自身,请编程求出这个三位数.我用Free Pascal做的,就是不能运行,帮忙查一下错：var a,b,c,s:integer;begin for s:=100 to 999 do begin
Free Pascal问题 任意输入一个四位数,输出的结果是其各个数位上的数字之和
用free pascal编程：输入两个数,求他们的最大公因数和最小公倍数
free pascal In(n)与log(n) 怎么表达?可以用函数.
free pascal语言.打印下列图形（共4个）.用循环.88888888881121123211234321#空空空空@#空空@@###@@@
free pascal中write 和write in的用法分别是怎么用的