Những câu hỏi liên quan
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)
TRIỆU TƯỜNG VI
Xem chi tiết
Nguyễn Hoàng Minh
31 tháng 10 2021 lúc 10:17

#include <bits/stdc++.h>

using namespace std;

int A,i,n;

int main()

{

cin>>n;

A=0;

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

{

A=A+i;

}

cout<<"Tong la: "<<A;

Return 0;

}

Bình luận (1)
Trần Gia Luật
Xem chi tiết
Nguyễn Lê Phước Thịnh
12 tháng 1 2022 lúc 22:26

#include <bits/stdc++.h>

using namespace std;

long long i,n,t;

int main()

{

cin>>n;

t=0;

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

cout<<t;

return 0;

}

Bình luận (0)
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)
tho hit co
Xem chi tiết
Nguyễn Tùng
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 12 2021 lúc 21:57

uses crt;

var a,t:integer;

begin

clrscr;

t=0;

repeat

readln(a);

if (a>0) then t:=t+a;

until (a mod 2=0);

writeln(t);

readln;

end.

Bình luận (0)
nguyễn phạm phương dung
Xem chi tiết
Nguyễn Lê Phước Thịnh
31 tháng 12 2022 lúc 0:33

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n-1 do

if i mod 2=0 then

begin

write(i:4);

t:=t+i;

end;

writeln;

writeln(t);

readln;

end.

Bình luận (0)
Nguyễn Hoàng Anh
14 tháng 3 2023 lúc 13:42

n = int(input())
s = 0
for i in range(1, n):
    if i % 2 == 0:
        print(i)
        s += i
print(s)

Bình luận (0)
nuinuini
Xem chi tiết
Selena Flynn
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 3 2022 lúc 23:03

c1: 

#include <bits/stdc++.h>

using namespace std;

long long i,n,s;

int main()

{

cin>>n;

s=1;

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

cout<<s;

return 0;

}

Câu 2: 

#include <bits/stdc++.h>

using namespace std;

long long i,n,s;

int main()

{

cin>>n;

s=1;

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

cout<<s;

return 0;

}

Bình luận (0)