free pascal问题:用集合做:输入一组数,程序判断出最大和的连续4个数和最小和的连续4个数例:输入3456789:3456789345(就像这几个数围成一圈)
来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/23 20:42:59
freepascal问题:用集合做:输入一组数,程序判断出最大和的连续4个数和最小和的连续4个数例:输入3456789:3456789345(就像这几个数围成一圈)freepascal问题:用集合做:
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的用法分别是怎么用的