các bạn hay đếm xem từ 88 đến 10292092 xem có bao nhiêu số nhé
Nhập số n vào từ bàn phím Đếm xem n có bài nhiêu chữ số Đếm xem có bao nhiêu chữ số là số chẵn Đếm xem có bao nhiêu chữ số là số lẻ Tính tổng các chữ số
Các bạn giỏi tin học giúp Mik vs Mik k bt hỏi ai cả
Viết thuật toán đếm xem có bao nhiêu số chẵn từ 1 đến n(n>=1)
Bước 1: Nhập N
Bước 2: dem←0; i←1;
Bước 3: Nếu i>N thì in ra kết quả và kết thúc
Bước 4: Nếu i mod 2=0 thì dem←dem+1;
Bước 5: i←i+1, quay lại bước 3
Viết chương trình nhập vào một số tự nhiên N, đếm xem trong khoảng từ 0 đến N có bao nhiêu số lẻ và tính tổng các số lẻ đó
#include <bits/stdc++.h>
using namespace std;
int main()
{
long long n,dem=0,s=0;
cin >> n;
for (long long i=1;i<=n;i+=2){
dem++;
s+=i;
}
cout << "tu 0 den n co: " << dem << " so le" << endl;
cout << "tong cac so le do la: " << s;
return 0;
Viết chương trình nhập vào một số tự nhiên N, đếm xem trong khoảng từ 0 đến N có bao nhiêu số lẻ và tính tổng các số lẻ đó
#include <bits/stdc++.h>
using namespace std;
int main()
{
long long n,dem=0,s=0;
cin >> n;
for (long long i=1;i<=n;i+=2){
dem++;
s+=i;
}
cout << "tu 0 den n co: " << dem << " so le" << endl;
cout << "tong cac so le do la: " << s;
return 0;
}
var i,n,d:integer;
s:longint;
begin
write('n = ');readln(n);
for i:=1 to n do
if i mod 2 <> 0 then
begin
d:=d+1;
s:=s+i;
end;
writeln('co ',d,' so le');
write('tong cac so le la ',s);
readln;
end.
Sử dụng chương trình pascal:
a,Viết chương trình nhập 1 số n từ bàn phím.
b,Đếm xem có bao nhiêu số chẵn từ 0 đến n và tính tổng các số chẵn đó.
uses crt;
var t,n,i,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
t:=0;
for i:=0 to n do
if i mod 2=0 then
begin
t:=t+i;
dem:=dem+1;
end;
writeln(dem,' ',t);
readln;
end.
Câu 2: (5 điểm)
a) Hãy mô tả thuật toán chương trình nhập n số nguyên từ bàn phím. Đếm xem có bao nhiêu số chẵn và tính tổng của các số chẵn. Biết N cũng được nhập từ bàn phím
b)Viết chương trình nhập dãy số nguyên từ bàn phím. Đếm xem có bao nhiêu số chẵn và tính tổng của các số chẵn. Biết N cũng được nhập từ bàn phím.
Câu 2:
a) Mô tả thuật toán
-Bước 1: Nhập n và nhập dãy số
-Bước 2: dem←0; i←1; t←0;
-Bước 3: Nếu a[i] mod 2=0 thì dem←dem+1 và t←t+a[i];
-Bước 4: i←i+1;
-Bước 5: Nếu i<=n thì quay lại bước 3
-Bước 6: Xuất t và dem
-Bước 7: Kết thúc
Câu 2:
b) uses crt;
var a:array[1..100]of integer;
i,n,t,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
t:=t+a[i];
inc(dem);
end;
writeln('So so chan la: ',dem);
writeln('Tong cac so chan la: ',t);
readln;
end.
Các bạn giúp mình bài này nha
Nhập vào số nguyên dương n từ bàn phím đếm xem có bao nhiêu số nguyên tố <=n đã cho in các nguyên tố ra màn hình
var i,j,n,d,sl:integer;
begin
write('n = ');readln(n);
for i:=1 to n do
begin
sl:=0;
for j:=1 to i do
if i mod j = 0 then
begin
d:=d+1;
if d=2 then sl:=sl+1;
end;
end;
write('Co ',sl,' so nguyen to <= ',n);
readln
end.
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;
}
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.
Viết chương trình pascal nhập n. Đếm xem từ 1 đến n có bao nhiêu số chia hết cho 7 Làm giúp với !
uses crt;
var n,i,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
dem:=0;
for i:=1 to n do
if i mod 7=0 then inc(dem);
writeln('Co ',dem,' so chia het cho 7 trong khoang tu 1 toi ',n);
readln;
end.