Nhập vào 1 số nguyên gồm 4 chữ số: Kiểm tra số vừa nhập lag số chẵn hay số lẻ? Kiểm tra xem số vừa nhập có phải 1 số nguyên tố 0? Kiểm tra xem số vừa nhập có phải là số hoàn hảo 0? Giúp mk vs. Hứa vote 5☆ cho ng tl sớm nhất.(◠‿◕)

ngoc02122001

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 21 xem

1 trả lời

Thích Trả lời

hokinh09900990

Program chuong trinh nhap so

uses crt;
Var i,n,S: integer;
Begin
Clrscr;
Write ('Nhap so can kiem tra n: ');

readln(n);

if n mod 2=0 then writeln (n,' la so chan);

if n mod 2<>0 then writeln (n,' la so le);

If (n=0) or (n=1) then
Writeln(n,' Khong phai la so nguyen to')
Else
Begin
i:=1;
Repeat
i:= i+1;
Until (n mod i= 0) or (i*i>n);
If i*i>n then
Writeln (n,' la so nguyen to')
Else
Writeln (n,' khong phai la so nguyen to');
End;

for i:=1 to n do

if n mod i=0 then s:=s+i;

if s=n then writeln (n,' la so hoan hao')

else writeln (n,' khong phai la so hoan hao');
Readln;
End.

Vote (0) Phản hồi (0) 2 năm trước

aiduyen319

Chương trình khá dài nhưng bù lại chương trình sẽ chạy nhanh hơn.

program kiemtraso;

uses crt;

var n,i,s:integer;

kt:boolean;

begin

clrscr;

repeat

write('Nhap n: '); readln(n);

if (n<1000) or (n>9999) then write('N phai co 4 chu so');

until (n>=1000) and (n<=9999);

if n mod 2=0 then writeln(n,' la so chan')

else writeln(n,' la so le');

kt:=true;

for i:=2 to trunc(sqrt(n)) do

if n mod i=0 then

begin

kt:=false;

break;

end;

if kt=true then writeln(n,' la so nguyen to')

else writeln(n,' khong phai so nguyen to');

s:=0;

for i:=1 to n div 2 do

if n mod i=0 then s:=s+i;

if s=n then writeln(n,' la so hoan hao')

else writeln(n,' khong la so hoan hao');

readln

end.

Cho mình ctlhn nha.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Write an email to your friend about the sports you do.Write about: + The sports you do at school +The sports you like/ don't like +The sports you're good at / bad at *ko đc chép mạng*

Cho mảnh bìa hình vuông ABCD. Hãy cắt từ mảnh bìa đó một hình vuông sao cho diện tích còn lại bằng diện tích của mảnh bìa đã cho.

Tìm x thuộc Z sao cho: (x^2-1)(x^2-4)(x^2-7)(x^2-10)<0

Mog m.n giúp tặng 5sao⭐️⭐️⭐️⭐️⭐️

`1.` Tìm x biết: $\dfrac{x - 1}{2020}$ `+` $\dfrac{x - 2}{2019}$ `-` $\dfrac{x - 3}{2018}$ `=` $\dfrac{x - 4}{2017}$ `2.` Tìm ` x ∈ Z` biết: `a)` $\dfrac{1}{1.3}$ `+` $\dfrac{1}{3.5}$ `+` $\dfrac{1}{5.7}$ `+` $\dfrac{1}{( 2x - 1). ( 2x +1)}$ `=` $\dfrac{49}{99}$ `b)` `1 - 3 + 3^{2} - 3^{3} +...+ ( -3)^x =` $\dfrac{9^{1000} - 1}{4}$ Help mì~~

Làm thế nào để thuyền bè di chuyển ngược dòng ở kênh đào Panama Giúp mình nhé

Cho ΔPQR=ΔSIK có Pˆ=90o,Iˆ=50o . Tính số đo góc Rˆ .

Tính bằng cách thuận tiện nhất a] 6482+597+403+518 b]590+160+210+410 c]25x12x4 d]615x101 e]273x99

Cho tam giác ABC nhọn nội tiếp đường tròn (O) .Các đường cao AD,BE,CF cắt nhau tại H. Gọi K là giao điểm của 2 đường thẳng BC,EF. Đường thẳng đi qua F song song với AC cắt AK,AD tại M,N .Chứng minh MF=NF (chứng minh giúp tui DP là phân giác $\widehat{FDE}$ với P là giao điểm của AD và EF)

hộ mk bài 1,2 phần THỐNG KÊ Ạ THANKS YOU,PHẦN THỐNG KÊ NHÁ

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến