uses crt;
var n,i,kt,j:integer;
begin
clrscr;
write('nhap n='); readln(n);
if n>1 then
begin
kt:=0;
for i:=2 to n-1 do
if n mod i=0 then kt:=1;
if kt=0 then
begin
if n mod 2=0 then writeln(n,' la so nguyen to chan')
else writeln(n,' la so nguyen to le');
end
else writeln(n,' khong la so nguyen to');
end
else writeln(n,' khong la so nguyen to');
readln;
end.
viết chương trình nhập n số nguyên từ bàn phím , nhập giá trị cho từng phần tử từ 1 đến N, đếm các số chẵn và tính tổng các số lẻ, hiện kết quả ra màn hình Giúp mik với ạ
viết chương trình in ra các số lẻ trong 1000 số tự nhiên daaffu tiên và tính tổng các số lẻ đó
mọi người giúp mình vs ạ , mai mình ktra r , thankkkk
vết chương trình nhập vào số n,kiể tra n có phải là số nguyên tố hay không?
sử dụng while....do
nhập vào 2 số từ bàn phím kiểm tra xem tích 2 số đó có chia hết cho 5 hoặc 8 hay không?
giúp mik vs nha
Viết chương trình nhập vào 5 số nguyên bất kì in ra màn hình số chẵn và số lẻ trong dãy số vừa nhập
Câu 1: viết chương trình nhập vào N số tự nhiên đầu tiên,đếm xem có bao nhiêu số là số chẵn Câu 2: Viết chương trình nhập vào N số tự nhiên tính tổng các số chia hết cho 3 Em cần gấp lắm ạ:(
giúp mình với ạ.
Viết chương trình tính tích 100 số nguyên âm lẻ/ chẵn đầu tiên được nhập vào bàn phím
1 Viết chương trình tính n!=1.2.3.4....n vs n là số nguyên được nhập vào từ bàn phím.
2 Viết chương trình tính t=1+2+3+4+....+n vs n là số nguyên được nhập vào từ bàn phím.
Viết chương trình nhập vào số n với N nhập từ bàn phím. Kiểm tra số N là số dương hay âm
