Những câu hỏi liên quan
Elizabeth
Xem chi tiết
San San
Xem chi tiết
Nguyễn Trung Hiếu
20 tháng 3 2022 lúc 7:21

Câu 1: 
uses crt;
var s,i,n:integer;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to n do
if i mod 2 <> 0 then inc(s,i);
write('Tong cac so le tu 1 den ',n,' la: ',s);
readln
end.

Bình luận (0)
Nguyễn Trung Hiếu
20 tháng 3 2022 lúc 7:22

Câu 2:
uses crt;
var s,i,n:integer;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to n do
if i mod 2 = 0 then inc(s,i);
write('Tong cac so le tu 1 den ',n,' la: ',s);
readln
end.

Bình luận (0)
Phan Thị Ka
Xem chi tiết
Minh Lệ
19 tháng 3 2023 lúc 22:40

Câu 1:

Program HOC24;

var i,p: integer;

t: longint;

begin

write('Nhap P: '); readln(p);

t:=0;

for i:=1 to p do if i mod 2<>0 then t:=t+i;

write('Tong cac so le la: ',t);

readln

end.

Bình luận (0)
Minh Lệ
19 tháng 3 2023 lúc 22:41

Câu 2:

Program HOC24;

var i,n: integer;

t: longint;

begin

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

t:=0;

for i:=1 to n do if i mod 2=0 then t:=t+i;

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

readln

end.

Bình luận (0)
Minh Lệ
19 tháng 3 2023 lúc 22:42

Câu 3:

Program HOC24;

var i,t,n: integer;

begin

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

t:=0;

for i:=1 to n do if n mod i=0 then t:=t+i;

write('Tong cac uoc cua ',n,' la: ',t);

readln

end.

Bình luận (0)
Dang2009 Trần
Xem chi tiết
Phạm Đức
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 12 2021 lúc 23:41

#include <bits/stdc++.h>

using namespace std;

long long n,i,t,dem;

int main()

{

cin>>n;

t=0;

dem=0;

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

if (i%2==1)

{

t=t+i;

dem++;

}

cout<<fixed<<setprecision(2)<<(t*1.0)/(dem*1.0);

return 0;

}

Bình luận (0)
Như Phi
Xem chi tiết
Nguyễn Lê Phước Thịnh
12 tháng 1 2022 lúc 22:15

#include <bits/stdc++.h>

using namespace std;

long long n,i,s,dem;

int main()

{

cin>>n;

s=0;

dem=0;

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

{

if (i%2==1) 

{

dem++;

s=s+i;

}

}

cout<<fixed<<setprecision(2)<<(s*1.0)/(dem*1.0);

return 0;

}

Bình luận (0)
Kiều Vũ Linh
13 tháng 1 2022 lúc 11:30

Var i,n:integer;

Begin

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

For i:=1 to n do

If i mod 2 = 1 then write(i,'    ');

Readln;

End.

Bình luận (0)
Nguyễn Minh Thiên
Xem chi tiết
Nguyễn Hoàng Duy
2 tháng 4 2023 lúc 16:38

program TinhTongDaySo;

var n, i, s: Integer;

begin
  // Yêu cầu người dùng nhập vào số nguyên n từ bàn phím
  write('Nhap vao n: ');
  readln(n);

  // In ra thông tin dãy số từ 1 đến n
  writeln('Day so tu 1 den ', n, ':');

  // Khởi tạo biến s để tính tổng dãy số
  s := 0;

  // Dùng vòng lặp for để in ra dãy số từ 1 đến n và tính tổng
  for i := 1 to n do
  begin
    write(i, ' '); // In ra dãy số từ 1 đến n
    s := s + i; // Tính tổng dãy số
  end;

  // In ra tổng dãy số
  writeln('Tong day so: ', s);

  // Dừng chương trình để người dùng có thể xem kết quả
  readln;
end.

Bình luận (2)
Nguyễn Hoàng Duy
2 tháng 4 2023 lúc 16:38

program Tinh_Tong_Day_So;

var n, i, s: Integer;

begin
  // Yêu cầu người dùng nhập vào số nguyên n từ bàn phím
  write('Nhap vao n: ');
  readln(n);

  // In ra thông tin dãy số từ 1 đến n
  writeln('Day so tu 1 den ', n, ':');

  // Khởi tạo biến s để tính tổng dãy số
  s := 0;

  // Dùng vòng lặp for để in ra dãy số từ 1 đến n và tính tổng
  for i := 1 to n do
  begin
    write(i, ' '); // In ra dãy số từ 1 đến n
    s := s + i; // Tính tổng dãy số
  end;

  // In ra tổng dãy số
  writeln('Tong day so: ', s);

  // Dừng chương trình để người dùng có thể xem kết quả
  readln;
end.

Bình luận (0)
Lê Tiến Thành
Xem chi tiết
Duy Nam
7 tháng 3 2022 lúc 8:14

uses crt;

var m,n,t,i:integer;

begin

clrscr;

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

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

t:=0;

for i:=m to n do 

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

writeln('Tong cac so chan tu ',m,' den ',n,' la: ',t);

readln;

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
8 tháng 3 2022 lúc 6:59

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

if (n%2==0)

{

t=0;

for (i=1; i<=n; i++) if (i%2==0) t+=i;

}

else 

{

t=0;

for (i=1; i<=n; i++) if (i%2!=0) t+=i;

}

cout<<t;

return 0;

}

Bình luận (0)
Lê Tiến Thành
Xem chi tiết
Vũ Quang Huy
12 tháng 3 2022 lúc 9:26

tk

uses crt;

var m,n,t,i:integer;

begin

clrscr;

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

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

t:=0;

for i:=m to n do 

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

writeln('Tong cac so chan tu ',m,' den ',n,' la: ',t);

readln;

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
14 tháng 3 2022 lúc 15:55

uses crt;

var n,i,t,dem:integer;

begin

clrscr;

readln(n);

if n mod 2=0 then 

begin

t:=0;

for i:=1 to n do 

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

writeln(t);

end

else 

begin

t:=0;

dem:=0;

for i:=1 to n do 

 if i mod 2=1 then 

begin

t:=t+i;

dem:=dem+1;

end;

writeln(t/dem:4:2);

end;

readln;

end.

Bình luận (0)