Những câu hỏi liên quan
Bảo Trâm
Xem chi tiết
Nguyễn Lê Phước Thịnh
6 tháng 4 2022 lúc 23:03

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

t=0;

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

if (i%2==0) t+=i;

cout<<t;

return 0;

}

Bình luận (0)
Bảo Trâm
Xem chi tiết
Nguyễn Lê Phước Thịnh
6 tháng 4 2022 lúc 23:03

 

 

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

t=0;

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

if (i%2!=0) t+=i;

cout<<t;

return 0;

}

 

Bình luận (0)
Nguyễn Thuận
Xem chi tiết
Bùi Anh Tuấn
17 tháng 3 2021 lúc 20:05

Bình luận (0)
Bùi Anh Tuấn
17 tháng 3 2021 lúc 20:05

Bình luận (0)
Nguyễn Lê Phước Thịnh
17 tháng 3 2021 lúc 21:50

Câu 3: 

uses crt;

var n,i,kt:integer;

begin

clrscr;

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

if n>1 then 

begin

kt:=0;

for i:=2 to trunc(sqrt(n)) do 

  if n mod i=0 then kt:=1;

if kt=0 then writeln(n,' la so nguyen to')

else writeln(n,' la hop so');

end

else writeln(n,' khong la so nguyen to cung khong la hop so');

readln;

end.

Bình luận (1)
Vy Tường_8a2
Xem chi tiết
Nguyễn Lê Phước Thịnh
13 tháng 4 2022 lúc 18:30

uses crt;

var i,n,s:integer;

begin

clrscr;

readln(n);

s:=0;

i:=0;

while i<=n do 

begin

i:=i+1;

s:=s+i*i;

end;

writeln(s);

readln;

end.

Bình luận (0)
Sóc Trăng Chi nhánh
Xem chi tiết
Nguyễn Lê Phước Thịnh
15 tháng 5 2021 lúc 10:53

uses crt;

var a:array[1..100]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;

i:=1;

while i<=n do 
  begin

t:=t+a[i];

inc(i);

end;

writeln(t/n:4:2);

readln;

end.

Bình luận (0)
Võ Tấn Trường Phạm
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 3 2023 lúc 15:01

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,t=0;

cin>>n;

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

if (i%6==0) t+=i;

cout<<t;

return 0;

}

Bình luận (0)
Công danh
Xem chi tiết
Trúc Giang
18 tháng 1 2021 lúc 19:54

Program mun;

Uses crt;

Var i:integer;

Begin

For i:=1 to 10 do write ('2 × ', i,' = ', 2*i);

Readln;

End.

P/s: Ko chắc ạ!

Bình luận (0)
Nguyễn Lê Phước Thịnh
18 tháng 1 2021 lúc 21:28

uses crt;

var i:integer;

begin

clrscr;

for i:=1 to 10 do

writeln('2*',i,'=',2*i);

readln;

end.

Bình luận (0)
Nguyễn Gia Huy
Xem chi tiết
Thanh Phong (9A5)
15 tháng 3 2023 lúc 5:50

Uses crt;

var n,i: integer;

begin clrscr;

readln(n);

for i:=1 to n do if( i mod 2<>0) then write(i:3);

readln;

end.

 

Bình luận (0)
Lê Gia Anh
19 tháng 3 2023 lúc 20:25

uses crt;

var i,n:longint;

begin 

writeln('nhap n'); readln(n);

for i:=1 to n do if i mod 2 =1 then 

writeln(i);

readln;

end.

ngu ththế mà cũng ko làm được về lớp 1 mà học

Bình luận (0)
phương thuý nguyễn thị
Xem chi tiết
Nguyễn Hoàng Duy
21 tháng 3 2023 lúc 22:01

program DemSoChiaHetCho5;
var
  n, i, count: integer;
begin
  write('Nhap n: ');
  readln(n);
  
  i := 1;
  count := 0;
  while i <= n do
  begin
    if i mod 5 = 0 then
      count := count + 1;
    i := i + 1;
  end;
  
  writeln('Co ', count, ' so tu nhien chia het cho 5 trong khoang tu 1 den ', n);
end.

 

Bình luận (1)
nguyễn thị kim ngân
Xem chi tiết
Minh Lệ
16 tháng 4 2023 lúc 22:25

Program HOC24;

var p: longint;

i,x: integer;

Begin

write('Nhap X: '); readln(X);

p:=1;

for i:=3 to x do if i mod 2=1 then p:=p*i;

write('P = ',p);

readln

end.

Bình luận (0)