K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

22 tháng 10 2022

uses crt;

var i,n,dem:integer;

begin

clrscr;

readln(n);

dem:=0;

for i:=1 to n do

  if i mod 2=1 then dem:=dem+1;

writeln(dem);

readln;

end.

28 tháng 10 2021

program vdd;

uses crt;

var i,n: integer;

begin

clrscr;

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

for i:=1 to n do if i mod 2=1 then write(i,';');

readln

end.

25 tháng 4 2023

#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;

25 tháng 4 2023

#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;
}

25 tháng 4 2023

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.

uses crt;
var n,i,dem,dem1,j,k,dem2,x:integer;
begin
clrscr;
write('nhap n='); readln(n);
dem:=0;
i:=1;
while i<=n do
begin
dem:=dem+1;
inc(i);
end;
writeln('So cac so tu nhien trong khoang tu 1 toi ',n,' la: ',dem);
dem1:=0;
j:=1;
while j<=n do
begin
if j mod 2=1 then inc(dem1);
inc(j);
end;
writeln('So cac so le trong khoang tu 1 toi ',n,' la: ',dem1);
if n>1 then
begin
k:=2;
dem2:=0;
repeat
x:=1;
repeat
inc(x);
until (k mod x=0) or (x=k);
if x=k then inc(dem2);
k:=k+1;
until k=n+1;
end;
writeln('So cac so nguyen to trong khoang tu 1 toi ',n,' la: ',dem2);
readln;
end.

5 tháng 5 2021

Viết chương trình nhập vào số nguyên n và tính tổng các số lẻ (các số lẻ là số không chia hết cho 2) trong khoảng từ 1 đến n ( ví dụ nhập = 10, ta sẽ có tổng sau s=1+3+5+7+9=25)

uses crt;

var i,n,s:integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do 

 if i mod 2=1 then s:=s+i;

writeln(s);

readln;

end.

30 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long m,n,i;

int main()

{

cin>>m>>n;

for (i=m; i<=n; i++)

if (i%2==1) cout<<i<<" ";

return 0;

}

uses crt;

var i,n,t:integer;

begin

clrscr;

write('nhap n='); readln(n);

t:=0;

for i:=1 to n do 

 if i mod 2=1 then t:=t+i;

writeln(t);

readln;

end.

uses crt;

var a:array[1..1000]of integer;

i,n,t,t1,dem,dem1:integer;

begin

clrscr;

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

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

t1:=0;

dem:=0;

dem1:=0;

for i:=1 to n do  

begin

if a[i] mod 2=0 then 

begin

t:=t+a[i];

inc(dem);

end

else begin

t1:=t1+a[i];

inc(dem1);

end;

end;

writeln('So luong so chan la: ',dem);

writeln('Tong cac so chan la: ',t);

writeln('So luong so le la: ',dem1);

writeln('Tong cac so le la: ',t1);

readln;

end.

25 tháng 2 2021

Bọn em học C++ ạ :<<

 

Bài 2: 

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,ln,nn;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++) cout<<a[i]<<"     ";

cout<<endl;

ln=a[1];

nn=a[1];

for (i=2; i<=n; i++)

{

ln=max(ln,a[i]);

nn=min(nn,a[i]);

}

cout<<ln<<" "<<nn;

}