Turbo Pascal题目~要用while,我是初级兴趣班的菜鸟同学,嘎嘎.反正闲着也是闲着.1.输入一整数A,判断它是否质数.(提示:若从2到A的平方根的范围内,没有一个数能整除A,则A是质数.)2.任意输入一个正
来源:学生作业学帮网 编辑:学帮网 时间:2024/05/28 16:00:43
Turbo Pascal题目~
要用while,我是初级兴趣班的菜鸟同学,嘎嘎.反正闲着也是闲着.
1.输入一整数A,判断它是否质数.(提示:若从2到A的平方根的范围内,没有一个数能整除A,则A是质数.)
2.任意输入一个正整数,将其倒序输出.如:输入3946,输出6493
free pascal和turbo pascal都差不多.所以打出方法就好了,我是初学的,当然会用turbo啦
program xx1;
var
i,j:integer;
a:boolean;
begin
a:=true;
read(j);
while (afalse)or(ij) do
begin
i:=i+1;
if j mod i=0 then a:=false;
end;
if a then writeln('yes')
else writeln('no');
end.
program xx2;
var
a:string;
i:integer;
begin
read(a);
i:=length(a);
while i0 do
begin
write(a[i]);
i:=i-1;
end;
end.
有没有Turbo pascal的题目急需3个,循环题目
Turbo Pascal中的board什么意思?
教我一道turbo pascal题目题目是从键盘输入一个整数X(X 不超过 10000),若X的各位数字之和为7的倍数,则打印YES',否则中打印NO用turbo pascal格式回答
急求TURBO PASCAL 急求关于TURBO PASCAL 一道要关于FOR的,另外两道一道是过程的,一道是函数的,题目可以自己编,但是要与化学有关的,
求1道turbo pascal题目的解法用自然数300,205,167分别除以某整数A,所得的余数均相同.求出整数A以及相除的余数请用turbo pascal格式
turbo pascal图形输出题(一个菱形); * +++ +++ *
Turbo Pascal编程题目用Turbo Pascal一维数组(与循环)做下面的题目(要详细程序):N只猴子围成一圈选大王.选举方式如下:1、2、3报数,数到3的猴子退出圈外.直到剩下一只猴子为止,这只猴子
Turbo Pascal题目~要用while,我是初级兴趣班的菜鸟同学,嘎嘎.反正闲着也是闲着.1.输入一整数A,判断它是否质数.(提示:若从2到A的平方根的范围内,没有一个数能整除A,则A是质数.)2.任意输入一个正
输入一个正整数n,将n分解成质因数幂的乘积形式.编程turbo pascal...
Pascal 也分 Turbo Pascal 和 Free Pascal 的 推荐的三种语言是 Free Pascal ,Lazarus ,dec-c++ 上面是从知道里复制来的.请问,Delphi7和里面说到的Turbo Pascal和Free Pascal可以说是什么关系呢?Free Pascal ,Lazarus ,dec-
急求free pascal错误表本人急需要free pascal错误表,一定是要带中文的,所用的free pascal版本为1.0.6,一定要是free pascal,而不是turbo pascal或者其他的
Noip提高组pascal题目
random函数的用法是turbo pascal 中的函数,希望有具体的介绍(有程序最好)
turbo pascal 题目编程 (1)把一元钞票换成一分.二分.5分硬币(每种至少一枚),有哪些种换法? (2)求1-100之间的素数 还有逻辑判断,各位高手出几题(要答案的)~~还有枚举素数的!谢谢,答
turbo是什么意思
turbo是什么意思
turbo pascal的一道题:找出100到999之间的整数中所有等于它每位数字立方和的数
输入一个正整数A,如果A的各个数字之和为7的倍数则输出‘YES’,否则输出‘NO’ Turbo pascalTurbo pascal的程序求解,如题.