Những câu hỏi liên quan
Dương Quỳnh Như
Xem chi tiết
Dương Quỳnh Như
Xem chi tiết
12a10 Lớp
Xem chi tiết
Lê Phương Chinh
Xem chi tiết
trần linh
Xem chi tiết
Đức Anh 2k9
Xem chi tiết
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)
Thanh Hiền Hồ
Xem chi tiết
Ngô Bá Hùng
16 tháng 4 2023 lúc 20:25

program TinhTongTu1DenN;
var
  N, i, tong: integer;
begin
  write('Nhap so N: ');
  readln(N);
  
 
  tong := 0;
  for i := 1 to N do
    tong := tong + i;
  
  writeln('Tong cac so tu 1 den ', N, ' la: ', tong);
  readln; 
end.

 

Bình luận (0)
Edward Paros
16 tháng 4 2023 lúc 22:08

N = int(input("Nhập số tự nhiên N: "))
tong = 0
for i in range(1, N+1):
    tong += i
print("Tổng các số từ 1 đến ", N, " là: ", tong)

 

Bình luận (0)
Dragon Red
Xem chi tiết