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.

5 tháng 2

Để tính tổng các số lẻ từ 1 đến n, em có thể sử dụng vòng lặp và biến tích luỹ. - Nhập số nguyên n từ bàn phím. - Khởi tạo biến `tong` = 0 để lưu tổng. - Dùng vòng lặp `i` chạy từ 1 đến n, bước nhảy 2 (1, 3, 5,…), mỗi lần cộng `tong = tong + i`. - Sau khi vòng lặp kết thúc, in biến `tong` ra màn hình. Ví dụ với Pascal: ``` var n,i,tong: integer; begin readln(n); tong:=0; for i:=1 to n do if i mod 2 <> 0 then tong:=tong + i; writeln('Tong cac so le tu 1 den ', n,' = ', tong); end. ``` Hoặc với Python: ``` n = int(input()) tong = 0 for i in range(1, n+1, 2): tong += i print('Tong so le tu 1 den', n, 'la', tong) ``` Giải thích: `i mod 2 <> 0` (hoặc `i % 2 != 0`) dùng để kiểm tra số lẻ; vòng lặp cộng dồn các số lẻ vào biến `tong`.

16 tháng 3 2023

n = int(input("Nhập số nguyên n: "))

tong = 0

i = 1

while i <= n:

          tong += i

          i += 1

print("Tổng các số từ 0 đến", n, "là:", tong)

19 tháng 3 2023

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.

19 tháng 3 2023

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.

20 tháng 3 2022

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.

20 tháng 3 2022

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.

17 tháng 2 2022

{PROGRAM Bai_tap1;
USES crt;
VAR n, i, C, L:Bytbe;
BEGIN 
  clrscr;
  Write('Nhap n:');Readln(n);
  C:=0;L:=0;
  For i:=1 to n do
    If i mod 2=0 then C:=C+i else L:=L+i;
  writeln('Tong cac so chan la:',C);
  writeln ('Tong cac so le la:',L);
  Readln;
end.  
}

22 tháng 4 2021

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.

25 tháng 2 2023

Chọn D

25 tháng 2 2023

Đề không có đáp án đúng, bạn kiểm tra lại đề nhé

1 tháng 4 2019

Program bt_3;

Uses crt;

Var Tong, n, i: integer;

Begin

 Clrscr;

 Writeln(‘nhap n=’);

 Readln (n);

 Tong:=0;

 For i:=1 to n do

 If I mod 2 = 1 then Tong:= Tong+i;

 Writeln(‘Tong la:’,Tong);

 Readln

End.