free pascal问题:用集合做:输入一组数,程序判断出最大和的连续4个数和最小和的连续4个数
来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/08/16 14:17:44
free pascal问题:用集合做:输入一组数,程序判断出最大和的连续4个数和最小和的连续4个数
例:输入3456789:3456789345(就像这几个数围成一圈)
例:输入3456789:3456789345(就像这几个数围成一圈)
![free pascal问题:用集合做:输入一组数,程序判断出最大和的连续4个数和最小和的连续4个数](/uploads/image/z/3624206-14-6.jpg?t=free+pascal%E9%97%AE%E9%A2%98%EF%BC%9A%E7%94%A8%E9%9B%86%E5%90%88%E5%81%9A%EF%BC%9A%E8%BE%93%E5%85%A5%E4%B8%80%E7%BB%84%E6%95%B0%2C%E7%A8%8B%E5%BA%8F%E5%88%A4%E6%96%AD%E5%87%BA%E6%9C%80%E5%A4%A7%E5%92%8C%E7%9A%84%E8%BF%9E%E7%BB%AD4%E4%B8%AA%E6%95%B0%E5%92%8C%E6%9C%80%E5%B0%8F%E5%92%8C%E7%9A%84%E8%BF%9E%E7%BB%AD4%E4%B8%AA%E6%95%B0)
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个数中最小的一个数是多少?