Viết chương trình nhập vào một số nguyên N và thực hiện:
a. Số nguyên dương N có bao nhiêu chữ số?
b. Tính tổng các chữ số của N
c. In ra chữ số lớn nhất của N
*Yêu cầu: N là một số nguyên dương(N bé hơn hoặc bằng 109)
viết chương trình nhập vào một số nguyên dương n . Rồi xuất ra màn hình các yêu cầu sau:
a, Số n có bao nhiêu chữ só.
b, Tổng các chữ số của n.
c, Số n có phải là số nguyên tố không.
d, Tổng các chữ số của nó có phải là số nguyên tố không.
mn giúp em vs ạ
program ct;
uses crt;
var dem,n,s,max,t:longint;
begin
writeln('nhap n:');readln(n);
while n>0 do begin
s:=n mod 10;
t:=t+s;
if max<s then max:=s;
dem:=dem+1;
n:=n div 10;
end;
writeln('tong la',t,',','co',' ',dem,' ','chu so',',','chu so lon nhat la:',max);
readln
end.
bạn xem lại nha mik làm đây nhưng k bt đk
Viết chương trình cho phép nhập từ bàn phím một số nguyên dương n và thực hiện:
a. In ra các số nguyên tố bé hơn hoặc bằng n.
b. In ra số nguyên tố nhỏ nhất không bé hơn n. c
. In ra các cặp số nguyên tố là hai số nguyên lẻ liên tiếp nhỏ hơn hoặc bằng n.
uses crt;
var n,i,o,d:integer;
function ktnt(n:integer): integer;
var i,d:integer;
begin
d:=0;
for i:=1 to sqrt(n) do
if (n mod i=0) then d:=d+1;
if d=2 then ktnt=0
else ktnt=1;
end;
begin
readln(n);
writeln(' so nguyen to be hon hoac bang n la'); {a}
for i:=1 to n do
if ktnt(i)=0 then writeln(i);
writeln('so nguyen to nho nhat khong be hon n');
o:=n;
while o>0 do
begin
if ktnt(o)=0 then
begin
write(o);
break;
end;
o:=o+1;
end;
writeln('cặp số nguyên tố là hai số nguyên lẻ liên tiếp nhỏ hơn hoặc bằng n');
o:=0;
o:=1;
d:=0;
for i:=o+2 to n do
begin
if ktnt(i)=0 then
begin
d:=d+1;
write(i,' ');
if d<2 then continue;
end;
d:=0;
writeln;
end;
readln;
end.
Bài 1: viết chương trình in ra các số chẵn là bội của 7 và nhỏ hơn hoặc bằng số nguyên dương N (với N được nhập). Yêu cầu nhập lại nếu a<=0.
Bài 2: Cho 2 số tự nhiên n,m. Viết chương trình tính tổng và tích cuả m chữ số cuối cùng của n.
Giup mình với ạ! mình cảm ơn!
Cho một dãy gồm N các số nguyên (nhập từ bàn phím). Hãy viết chương trình thực hiện các yêu cầu sau: a. Tìm và tính tổng các số nguyên tố trong dãy. b. Tìm và in ra các số nguyên dương, nguyên âm có trong dãy, tìm số nguyên âm lớn nhất và số nguyên dương nhỏ nhất của dãy. c. Sắp xếp các số nguyên dương lên đầu dãy, các số nguyên âm tiếp theo và cuối cung là số 0. ( Nếu loại số nào không có thì in ra “ Trong day khong có so ...”)
Viết chương trình nhập vào một số nguyên dương n (n<1000) và tính tính tổng các chữ số của n.
program TongChuSo;
var
n, sum: integer;
begin
write('Nhap n: ');
readln(n);
sum := 0;
while n > 0 do
begin
sum := sum + (n mod 10);
n := n div 10;
end;
writeln('Tong cac chu so cua n la: ', sum);
readln;
end.
Viết chương trình nhập vào từ bàn phím một số nguyên dương n, in ra màn hình các số lẻ nhỏ hơn hoặc bằng số nguyên dương n. Chương trình yêu cầu nhập lại nếu n <=0. (Sử dụng câu lệnh While … do)
program Le_Nho_Hon_Hoac_Bang_n;
uses crt;
var
n, i: integer;
begin
clrscr;
write('Nhap vao mot so nguyen duong n: ');
readln(n);
while n <= 0 do
begin
writeln('So ban nhap khong hop le. Xin vui long nhap lai: ');
readln(n);
end;
clrscr;
writeln('Cac so le nho hon hoac bang ', n, ' la:');
i := 1;
while i <= n do
begin
if i mod 2 <> 0 then
writeln(i);
i := i + 1;
end;
readln;
end.
1. Viết chương trình nhập vào một số nguyên dương n. Hãy in ra số nguyên tố nhỏ nhất lớn hơn n. 2. Viết chương trình nhập vào một xâu. In ra màn hình số lớn nhất trong xâu đó.
câu 1
Program Nguyen_to;
Var n,i:integer;
Function NT(n:integer):Boolean;
Var ok: Boolean;
i: integer;
Begin ok:=true;
for i:=2 to n-1 do if (n mod i)= 0 then ok:=ok and false;
if n < 2 then NT:=false else NT:=ok;
End;
Begin Write('Nhap n: ');
Readln(n); i:=n;
Repeat i:=i+1;
Until NT(i);
Write('So nguyen to nho nhat lon hon ',n, 'la: ',i);
Readln End.
câu 2
uses crt;
const so: set of char=['0','1','2','3','4','5','6','7','8','9'];
var a:array[1..100] of integer;
st,b:string;
c,l,i,n,j:integer;
s, Max: integer;
begin clrscr;
write('Nhap xau:');
readln(st);
l:=length(st);
i:=1;
n:=0;
repeat if (st[i] in so) then begin b:=''
repeat b:=b+st[i];
inc(i);
until (not(st[i] in so)) or (i>l);
inc(n);
val(b,a[n],c);
end;
inc(i);
until i>l;
Max:=a[1];
for i:=2 to n do If Max<A[i] Then Max:=A[i];
Writeln('Phan tu lon nhat cua mang:', Max);
readln;
end.
Viết chương trình sử dụng chương trình con (Pascal)
- Tính n! với n nguyên dương?
- Đảo ngược xâu st cho trước?
- Đếm số nguyên dương N có bao nhiêu chữ số?
- Kiểm tra tính đối xướng của một xâu st cho trước?
- Viết ra n số nguyên tố đầu tiên?
- Nhập 1 dãy số nguyên dương, sau đó viết ra số nguyen dương trong dãy?
Cái này mình viết chương trình chính thôi, bạn tự viết ctc nhé
Câu 1:
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
writeln(s);
readln;
end.
Câu 2:
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=d downto 1 do
write(st[i]);
readln;
end.
Câu 3:
uses crt;
var n:integer;
st:string;
begin
clrscr;
write('Nhap n='); readln(n);
str(n,st);
writeln('So ',n,' co ',length(st),' chu so');
readln;
end.