【程序设计】PASCAL语言实现找出各位上数字之和为8,并且是素数的所有二位正整数的和,并输出这些数及其和.
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/02 07:48:54
![【程序设计】PASCAL语言实现找出各位上数字之和为8,并且是素数的所有二位正整数的和,并输出这些数及其和.](/uploads/image/z/8437892-68-2.jpg?t=%E3%80%90%E7%A8%8B%E5%BA%8F%E8%AE%BE%E8%AE%A1%E3%80%91PASCAL%E8%AF%AD%E8%A8%80%E5%AE%9E%E7%8E%B0%E6%89%BE%E5%87%BA%E5%90%84%E4%BD%8D%E4%B8%8A%E6%95%B0%E5%AD%97%E4%B9%8B%E5%92%8C%E4%B8%BA8%2C%E5%B9%B6%E4%B8%94%E6%98%AF%E7%B4%A0%E6%95%B0%E7%9A%84%E6%89%80%E6%9C%89%E4%BA%8C%E4%BD%8D%E6%AD%A3%E6%95%B4%E6%95%B0%E7%9A%84%E5%92%8C%2C%E5%B9%B6%E8%BE%93%E5%87%BA%E8%BF%99%E4%BA%9B%E6%95%B0%E5%8F%8A%E5%85%B6%E5%92%8C.)
【程序设计】PASCAL语言实现找出各位上数字之和为8,并且是素数的所有二位正整数的和,并输出这些数及其和.
【程序设计】PASCAL语言实现
找出各位上数字之和为8,并且是素数的所有二位正整数的和,并输出这些数及其和.
【程序设计】PASCAL语言实现找出各位上数字之和为8,并且是素数的所有二位正整数的和,并输出这些数及其和.
Program example;
var i,ans:longint;
function prime(n:longint):boolean;
var i:longint;
f:boolean;
begin
f:=true;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then
begin
f:=false;
break;
end;
prime:=f;
end;
function sum8(n:longint):boolean;
begin
if (n div 10)+(n mod 10)=8 then sum8:=true else sum8:=false;
end;
begin
for i:=10 to 99 do
if prime(i) and sum8(i) then
begin
writeln(i);
inc(ans,i);
end;
writeln(ans);
end.
答案是:
17
53
71
141
【程序设计】PASCAL语言实现找出各位上数字之和为8,并且是素数的所有二位正整数的和,并输出这些数及其和.
PASCAL语言 找出各位上数字之和为8,并且是素数的所有二位正整数的和,并输出这些数及其和
pascal程序设计 输入一个整数n,n
【程序设计】PASCAL语言实现设有一个数列a1,a2,a3,…,a(n),其中a1,a2由键盘输入,从a3开始,通过下列四种情况的公式计算:a(n-2) a(n-1) a(n)偶数 奇数 2a(n-2)+a(n-1)
给出一个数列,要求:找出一个连续的数列,它们的和最大,Pascal语言实现.注意!数列最多可能有1000000000(10亿)个数,说明只能用O(n)的时间复杂度.是计算机的Pascal编程语言
用pascal语言做一道题读入三个整数,找出并输出其中最大的数
电脑程序设计:PASCAL语言1.输入一个四位整数,把它的各位数字倒序输出.(提示:用MOD和DIV运算完成)2.从键盘上读入一个实数,利用ROUND()和TRUNC()函数,输出该实数本身.整数部分.小数部分.四舍五入
计算1000以内有多少个数其各位数字之和是7 程序设计C语言
用pascal找出能被各位数字之和整除的一切两位数!
数学表达式如何转化为pascal语言拜托了各位 具体一点,把中学的公式尽量都化为pascal.
编程找出六位平方数使它的前三位和后三位都是平方数 要用pascal语言要的是pascal编程过程
找出数字之和等于6且能被5整除的所有两位数(用free pascal语言回答)
C语言统计符号程序设计输入三行文字,找出其中有多少个空格和多少个单词(规定单词间以一个或多个空格分开)
pascal 奇数阶幻方用pascal实现生成任意奇数阶幻方
c语言实现找出32位数中是回文数,且开方为整数的数
C语言找出数组中素数的个数,要求判定是否为素数用函数实现
用pascal编写的一道题目.找出各位上数字之和为8,并且是素数的所有二位正整数之和,并输出这些数及其和..
求100以内的素数pascal语言