nhập vào số nguyên dương n >10 a, từ 1 đến n có bao nhiêu số chẵn
Những câu hỏi liên quan
: Nhập vào 01 số nguyên dương n ( nhỏ hơn 100) , sau đó , in ra từng dòng các số chẵn từ 1 đến số n, sau đó in thông báo có bao nhiêu số lẻ từ 1 đến n. (for..to..do + if..then)Nhập vào 01 số nguyên dương m ( nhỏ hơn 100) , sau đó , in ra từng dòng các số lẻ từ 1 đến số m, sau đó in thông báo có bao nhiêu số lẻ từ 1 đến m. (for..to..do + if..then)dientich_chuvi.pas : Nhập vào bán kính đường tròn , sau đó dùng một biến hỏi để hỏi xem nếu gõ số 1 thì sẽ tính diện tích , ngược lại sẽ tính ch...
Đọc tiếp
: Nhập vào 01 số nguyên dương n ( nhỏ hơn 100) , sau đó , in ra từng dòng các số chẵn từ 1 đến số n, sau đó in thông báo có bao nhiêu số lẻ từ 1 đến n. (for..to..do + if..then)
Nhập vào 01 số nguyên dương m ( nhỏ hơn 100) , sau đó , in ra từng dòng các số lẻ từ 1 đến số m, sau đó in thông báo có bao nhiêu số lẻ từ 1 đến m. (for..to..do + if..then)
dientich_chuvi.pas : Nhập vào bán kính đường tròn , sau đó dùng một biến hỏi để hỏi xem nếu gõ số 1 thì sẽ tính diện tích , ngược lại sẽ tính chu vi đường tròn. (câu điều kiện)
: Viết chương trình cho phép người dùng nhập vào số năm, sau đó nhập vào lượng mưa của từng năm. Xuất ra tổng lượng mưa và lượng mưa trung bình. (for..to..do + kiểu mảng)
a, Viết chương trình nhập vào số nguyên dương, tính N!=1*2*3*...*N
VD N=5 thì in ra 5!=120
b, Viết chương trình tính tổng số chẵn từ 1 đến N với N là số nguyên sau đó hiển thị ra tông
VD N=10 thì tổng số chẵn là 30
c, Viết chương trình nhập vào của một số nguyên dương N, kiểm tra xem có phải số nguyên tố
a)
uses crt;
VAR
n, d, i: integer;
BEGIN
clrscr;
Writeln ('Nhap vao n='); readln (n);
d : = 1;
For i: = 1 to n do
d: = d*i;
Writeln ('d=',d);
Readln;
END.
c)
uses crt;
VAR
n, i, demuoc: integer;
BEGIN
clrscr;
Writeln ('Nhap vao n='); readln (n);
demuoc: = 0;
For i: = 1 to n do
If n mod i = 0 then
demuoc : = demuoc + 1;
If demuoc = 2 then
Writeln ('n la so nguyen to')
ELSE
Writeln ('n khong phai la so nguyen to');
Readln ;
END.
Còn phần b bạn tự nghĩ nha!
Chúc bạn học tốt!
Đúng 0
Bình luận (0)
MÀY LÀ MỘT CON CHÓ NGU L NHẤT T TỪNG BIẾT
ĐCM HƯƠNG TRÀ
ĐCM HƯƠNG TRÀ
ĐCM HƯƠNG TRÀ
CÁI J QUAN TRONG NHẮC LẠI 3 LẦN NHA CON ĐĨ NGU
Đúng 0
Bình luận (0)
MẤY CON CHÓ TRẢ LỜI CÂU HỎI CỦA CON L NGU HƠN CON SÚC VẬT
HOC ĐC VÀI ĐƯỜNG CODE BẨN CŨNG LÊN ĐÂY TRẢ LỜI
M HƠN AI TỤI SÚC VẬT
NGU NHẤT LÀ CON CÔNG CHÚA SAKURA
NGU NHẤT LÀ CON CÔNG CHÚA SAKURA
NGU NHẤT LÀ CON CÔNG CHÚA SAKURA
VIẾT CODE NHƯ DÁI TAO
Đúng 0
Bình luận (0)
Nhập vào số nguyên dương
a) In ra màn hình các số chẵn và chia hết cho 4 trong khoảng từ 5 đến n
b) đếm và in ra màn hình có bao nhiêu số chia hết cho 7 trong khoảng từ 5 đến n
pascal 11
Xem chi tiết
uses crt;
var i,n,dem:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
writeln('Cac so chan va chia het cho 4 trong khoang tu 5 toi ',n,' la: ');
for i:=5 to n do
if (i mod 2=0) and (i mod 7=0) then write(i:4);
writeln;
writeln('Cac so chia het cho 7 trong khoang tu 5 toi ',n,' la: ');
dem:=0;
for i:=5 to n do
if i mod 7=0 then
begin
write(i:4);
inc(dem);
end;
writeln;
writeln('Co ',dem,' so chia het cho 7 trong khoang tu 5 toi ',n);
readln;
end.
Đúng 0
Bình luận (0)
Viết CT nhập vào 1 số nguyên dương n, rồi xuất ra màn hình : +tổng các số chẵn từ 1 đến n + Số các số chẵn từ 1 đến n
viết chương trình nhập vào từ tệp số n ( n nguyên dương) in ra màn hình các số chẵn từ 1 đến n
nhập vào 2 số nguyên dương n1,n2 (n1 bé hơn n2) đếm xem từ n1 đến n2 có bao nhiêu số chẵn
#include <bits/stdc++.h>
using namespace std;
long long a,b,i,dem;
int main()
{
cin>>a>>b;
dem=0;
for (i=a; i<=b; i++) if (i%2==0) dem++;
cout<<dem;
}
Đúng 1
Bình luận (0)
Var n1,n2,i,dem:integer;
Begin
Write('Nhap n1 = ');readln(n1);
Write('Nhap n2 = ');readln(n2);
For i:=n1 to n2 do
If i mod 2 = 0 then dem:=dem+1;
Write('Co ',dem,' so chan');
Readln;
End.
Đúng 0
Bình luận (0)
1. Viết chương trình Pascal tính tổng các số chia hết cho 3 từ 1 đến 100 Kết quả tổng này là số chẵn hay lẻ? 2. Viết chương trình Pascal nhập vào 1 mảng số nguyên A gồm có N số (N< 100). Có bao nhiêu số chẵn trong mảng A.
Bài 2:
uses crt;
var x,i,n,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
for i:=1 to n do
begin
readln(x);
if x mod 2=0 then inc(dem);
end;
writeln(dem);
readln;
end.
Đúng 0
Bình luận (1)
Câu 1: Viết chương trình nhập vào số nguyên n có 2 chữ số (Nếu nhập sai thì nhập lại).
a) In ra các số chẵn từ 0 đến n
b) In ra các số lẽ từ 1 đến n
c) Tính tổng các số chẵn từ 0 đến n
d) Tính tổng các số lẻ từ 1 đến n
Viết CT nhập vào số nguyên dương n(n được nhập giá trị từ bàn phím), sau đó thực hiện các yêu cầu sau: a, nếu n=0 thì yêu cầu nhập lại số n b, tính tổng các số chẵn từ 1 đến n vừa nhập c, tính tích các số lẻ từ 1 đến n vừa nhập D, in các giá trị vừa tính được ra màn hình
uses crt;
var n,i,t,s:integer;
begin
clrscr;
repeat
readln(n);
until n<>0;
t:=0;
for i:=1 to n do if i mod 2=0 then t:=t+i;
writeln(t);
s:=1;
for i:=1 to n do
if i mod 2=1 then s:=s*i;
writeln(s);
readln;
end.
Đúng 1
Bình luận (0)