Cho một số n, kiểm tra n: 1. Có phải là số tăng dần không. Biết số tăng dần là số mà các chữ số của nó tăng dần từ trái sang phải. 2. Có phải là một số lưỡi cư
Cho một số n, kiểm tra n: 1. Có phải là số tăng dần không. Biết số tăng dần là số mà các chữ số của nó tăng dần từ trái sang phải. 2. Có phải là một số lưỡi cưa không. Biết số lưỡi cưa là số mà các chữ số của nó liên tiếp tăng giảm (giảm tăng) đan xen nhau. Vd: 1203 là số lưỡi cưa. 5487 là số lưỡi cưa. 1322 không là số lưỡi cưa. 1341 không là số lưỡi cưa. 3. Có những ước số nào khác 1 và n. (n nguyên dương) Vd: n=15. Các ước số của 15: 3, 5. n=8. Các ước số của 8: 2, 4. Mấy bn ơi giúp mik với! Tks rất nhiều ạ!!!!
Lời giải 1 :
Bài 1:
program bai_giai;
uses crt;
var n,a,b:longint;
begin
clrscr;
readln(n);
b:=n mod 10;
while n>0 do
begin
a:=n mod 10;
if a>b then
begin
write('KHONG');
readln;
exit;
end;
b:=a;
n:=n div 10;
end;
write('PHAI');
readln;
end.
Bài 2:
program bai_giai;
uses crt;
var n,a,b,d:longint;
begin
clrscr;
readln(n);
b:=n mod 10;
n:=n div 10;
a:=n mod 10;
if a>b then d:=1 else d:=2;
b:=a; n:=n div 10;
while n>0 do
begin
a:=n mod 10;
if ((a>b) and (d=1)) or ((a<b) and (d=2)) then
begin
write('KHONG');
readln;
exit;
end;
b:=a;
n:=n div 10;
if d=1 then d:=2 else d:=1;
end;
write('PHAI');
readln;
end.
Bài 3:
program bai_giai;
uses crt;
var n,i:longint;
begin
clrscr;
readln(n);
for i:=2 to n div 2 do
if n mod i=0 then write(i,' ');
readln;
end.
Thảo luận
Lời giải 2 :
1.
uses crt;
var i,n,kt:longint; s:string;
begin
clrscr;
write('Nhap n: ');readln(n);
str(n,s);
for i:=2 to length(s) do
if s[i]<=s[i-1] then kt:=1;
writeln(kt=0);
readln
end.
2.
uses crt;
var i,n,kt,k:longint; s:string;
begin
clrscr;
write('Nhap n: ');readln(n);
str(n,s);
if s[1]<s[2] then kt:=1;
for i:=1 to n-1 do
if ((i mod 2=kt)and(s[i]>s[i+1]))or((i mod 2<>kt)and(s[i]<s[i+1])) then k:=1;
writeln(k=0);
readln
end.
3.
uses crt;
var n,i:longint;
begin
clrscr;
write('Nhap n: ');readln(n);
write(n,': ');
for i:=2 to n div 2 do
if n mod i=0 then write(i,' ');
readln
end.
Có thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 8
Lớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần, sang năm lại là năm cuối cấp áp lực lớn dần nhưng các em vẫn phải chú ý sức khỏe nhé!
Nguồn : ADMIN :))Xem thêm tại https://loigiaisgk.com/cau-hoi or https://giaibtsgk.com/cau-hoi
Copyright © 2021 HOCTAPSGK