freepascal中已知两个自然数ab输出a除以b的商余数

余多儿2022-10-04 11:39:541条回答

已提交,审核后显示!提交回复

共1条回复
妖狼狼 共回答了18个问题 | 采纳率94.4%
program divide(input,output);
var a,b:integer;
begin
write('input a:');
readln(a);
write('input b:');
readln(b);
writeln('a/b=',a div b,'……',a mod b);
end.
1年前

相关推荐

一道FreePascal题数列求和求:SN=A+AA+AAA+…+AA…A(最后项N个A,共N项)的值。其中A是一位数字
一道FreePascal题
数列求和
求:SN=A+AA+AAA+…+AA…A(最后项N个A,共N项)的值。其中A是一位数字(2≤A+N≤6,1≤N)
例如:当A=2,N=3时,S3=2+22+222=246
输入输出样例:
输入:A,N=2 3↙
输出:246
bins793211年前1
lixingchen1982 共回答了12个问题 | 采纳率100%
#include
void main(){
int a,n,i,A,N;
printf("输入入A,N(2
freepascal求解:给定一个正整数n,请求出2~n之间长度最长,成等差数列的素数(质数).
freepascal求解:给定一个正整数n,请求出2~n之间长度最长,成等差数列的素数(质数).
例如:当n的值为40时,在2~40之间的全部素数有:2,3,5,7,11,13,17,19,23,31,37.
输出:
5
5 11 17 23 29
b_b88771年前2
Jason_fei 共回答了18个问题 | 采纳率83.3%
设公差为d,
若d为奇数,最长的素数数列只有2项:2,2+d.
若d为偶数,最长的素数数列只有5项,是因为奇数p1>2,p1+d,p1+2d,p1+3d,p1+4d这5个数中必有一个数,其末位数字为5.