viết chương trình nhấp số tự nhiên N từ bàn phím và in ra màn hình các số lẻ nhỏ hơn hoặc bằng N
Những câu hỏi liên quan
Viết chương trình in ra màn hình gtrị tổng cá số tự nhiên lẻ bé hơn hoặc bằng Những, Với số N đc nhập từ bàn phím
program TinhTongSoTuNhienLe;
var
N, i, sum: integer;
begin
write('Nhap so N: ');
readln(N);
sum := 0;
for i := 1 to N do
begin
if i mod 2 = 1 then // Kiểm tra số lẻ
sum := sum + i; // Cộng dồn vào tổng
end;
writeln('Tong cac so tu nhien le nho hon hoac bang N la: ', sum);
readln;
end.
Đúng 0
Bình luận (0)
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.
Đúng 2
Bình luận (0)
Viết chương trình in ra màn hình tổng các số chẵn nhỏ hơn hoặc bằng N và tổng các số lẽ nhỏ hơn hoặc bằng N. Với N là số tự nhiên N nhập từ bàn phím.Ví dụ: -Input: n6, {1,2,3,4,5,6} - Output: - Tổng số chẵn: 12; - Tổng số lẽ: 9;
Đọc tiếp
Viết chương trình in ra màn hình tổng các số chẵn nhỏ hơn hoặc bằng N và tổng các số lẽ nhỏ hơn hoặc bằng N. Với N là số tự nhiên N nhập từ bàn phím.
Ví dụ: -Input: n=6, {1,2,3,4,5,6}
- Output: - Tổng số chẵn: 12;
- Tổng số lẽ: 9;
Cho dãy A gồm N số nguyên (N nhỏ hơn hoặc bằng 200) số nguyên A1,A2,...An. Hãy viết chương trình nhập mảng A vào từ bàn phím và đưa ra màn hình tổng các phần tử chia hết cho 5.
Bài 2: Viết chương trình nhập 1 xâu vào từ bàn phím và đưa ra màn hình xâu không chứa dấu cách. 
Bài 1:
uses crt;
var a:array[1..200]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 5=0 then t:=t+a[i];
writeln('Tong cac so chia het cho 5 la: ',t);
readln;
end.
Đúng 1
Bình luận (0)
Bài 2:
uses crt;
var st:string;
d,i:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
if st[i]=#32 then delete(st,i,1);
writeln(st);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình python in ra màn hình các số lẻ chia hết cho 3 nhỏ hơn N, với N nhập từ bàn phím. Sau khi chạy chương trình thông báo đếm được bao nhiêu số ?
program Tim_So_Le_Chia_Het_Cho_3;
uses crt;
var
n, i, count: integer;
begin
clrscr;
write('Nhap vao mot so nguyen duong n: ');
readln(n);
writeln('Cac so le chia het cho 3 nho hon ', n, ' la: ');
count := 0;
for i := 1 to n do
begin
if (i mod 2 = 1) and (i mod 3 = 0) then
begin
writeln(i);
count := count + 1;
end;
end;
writeln('Co tat ca ', count, ' so le chia het cho 3');
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập từ bàn phím số nguyên n đưa ra màn hình tổng các số tự nhiên nhỏ hơn n và chia hết cho 2 và chia hết cho 3.
Var i,n:integer;
s:longint;
Begin
Write('n = ');readln(n);
For i:=1 to n-1 do
If (i mod 2 = 0) and (i mod 3 = 0) then
s:=s + i;
Write('Tong la ',s);
Readln;
End.
Đúng 1
Bình luận (0)
Viết chương trình in ra màn hình số chẵn số lẻ có trong dãy tự nhiên được nhập từ bàn phím S= 1,2,3,4,5,..,n
#include <bits/stdc++.h>
using namespace std;
long long a[1000],n,i;
int main()
{
cin>>n;
for (i=1; i<=n; i++)
cin>>a[i];
cout<<"Cac so le la: "<<endl;
for (i=1; i<=n; i++) if (a[i]%2!=0) cout<<a[i]<<" ";
cout<<endl;
cout<<"Cac so chan la: "<<endl;
for (i=1; i<=n; i++) if (a[i]%2==0) cout<<a[i]<<" ";
return 0;
}
Đúng 0
Bình luận (0)
n = int(input("Nhập vào giá trị của n: "))
even_count = 0
odd_count = 0
for i in range(1, n+1):
if i % 2 == 0:
even_count += 1
else:
odd_count += 1
print("Số chẵn trong dãy là:", even_count)
print("Số lẻ trong dãy là:", odd_count)
Đúng 0
Bình luận (0)
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.
Đúng 0
Bình luận (1)
Câu 1: Viết chương trình nhập vào từ bàn phím số tự nhiên n và in ra màn hình số đã nhập chẵn hay lẻ( vd 3 là số lẻ, 4 là số chẵn)