作业帮free pascal问题：用集合做：输入一组数,程序判断出最大和的连续4个数和最小和的连续4个数
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/04/27 23:43:16
free pascal问题：用集合做：输入一组数,程序判断出最大和的连续4个数和最小和的连续4个数
例：输入3456789:3456789345(就像这几个数围成一圈)
例：输入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]
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个数
pascal语言:输入n个数,并输出最大的数和最小的数
连续5个数的和是最小的三位数,其中最大的数是几,最小的数是几.
9个连续偶数的和比其中最小的数多232.这9个数中最大的数是几?
用free pascal编程：输入两个数,求他们的最大公因数和最小公倍数
c语言程序：从键盘任意输入10个数,要求找出里面最大的数和最小的数,并输出这10个数.
有5个连续的自然数,最大数是最小数的2倍,第二个数和第四个数的比是多少?
4个连续的自然数的和等于262,那么这4个数中最小的一个数是多少?
输入n个数,找出最大数和最小数 vfp语言程序编写
编写一个C语言程序,要求输入3个数,求最大数和最小数之和.
4个连续自然数的和等于390,那么这4个数中最小的一个数是多少、
4个连续自然数的和等于210那么这4个数中最小的一个数是多少?