【急!】Pascal.输入一个整数,输出该数每一位数字的和.
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/09/29 17:35:55
【急!】Pascal.输入一个整数,输出该数每一位数字的和.
第一题:
输入一个整数a(0
第一题:
输入一个整数a(0
Program ex1; {程序首部}
Var
a:longint;
s:byte= 0; {说明部分}
Begin {语句部分}
ReadLn(a); {输入待处理整数}
repeat
s:= s+a mod 10;
a:= a div 10;
until a= 0
Writeln('每一位数字的和=',s);
ReadLn; {等待输入回车键}
End.
Program ex2;
var
a,n,max,min:integer;
begin
for n:= 1 to 10 do
begin
Write('请输入第',n,'个数字'); {给出提示信息}
readln(a);
case n of
1:begin
max:= a;
min:= a;
end;
2..10:begin
if n> max then
max:= n;
if n< min then
min:= n;
end;
end;
end;
Writeln('最大数=',max);
Writeln('最小数=',min);
end.
Var
a:longint;
s:byte= 0; {说明部分}
Begin {语句部分}
ReadLn(a); {输入待处理整数}
repeat
s:= s+a mod 10;
a:= a div 10;
until a= 0
Writeln('每一位数字的和=',s);
ReadLn; {等待输入回车键}
End.
Program ex2;
var
a,n,max,min:integer;
begin
for n:= 1 to 10 do
begin
Write('请输入第',n,'个数字'); {给出提示信息}
readln(a);
case n of
1:begin
max:= a;
min:= a;
end;
2..10:begin
if n> max then
max:= n;
if n< min then
min:= n;
end;
end;
end;
Writeln('最大数=',max);
Writeln('最小数=',min);
end.
输入一个2位数整数,输出该数各位上的数字
输入任意一个不限位数的正整数,分离出该数中的每一位数字,并按逆序显示输出各位数
编写一个程序,从键盘上输入一个整数,用英文显示该整数的每一位数字.
输入一个正整数,输出该数的各个数字之和.要求编写函数,计算整数的各个数字之和
c程序设计:输入一个任意整数,逆序输出该数各位数字.
输入一个整数n,求它各位上的数字和 pascal
C#:编写一个控制台应用程序,要求输入任意一个整数,输出该整数的反序数.
输入一个数,将该数的每位数字输出,再输出该数的反序数.例如,输入1234,输出1、2、3、4,再输出4321
pascal输入一个整数,如果它是7的倍数,则输出‘yes’,否则输出‘no’.
求一个计算机程序C语言的,要求输入一个两位数字输出其每一位的数字和每一位数字的和
c语言作业:输入一个整数,判断该数的每位数字是否都不相同,如果是则输出yes,如果不是则输出no
c语言作业:输入一个整数,判断该数的每位数字是否都相同,如果是则输出yes,如果不是则输出no