Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Cao Ngọc Bảo Quyên
Xem chi tiết
Nguyễn Thị Tươi
Xem chi tiết
Nguyễn Kim Đan
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 2 2023 lúc 15:37

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

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

write(t);

readln;

end.

Karata Kuro
Xem chi tiết
Phạm Gia Khánh
21 tháng 8 2018 lúc 20:18

B1:

    A= {A E N* | A<= 23}

B2:

   B= {B E N | B >= 20 | B <= 28 }

Huyy Bùii
Xem chi tiết
Mai Nguyen Thi
Xem chi tiết
Phía sau một cô gái
21 tháng 1 lúc 20:30

n = 4

tong = sum(range(1, n+1))

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

Phía sau một cô gái
21 tháng 1 lúc 20:37

n = int(input("Nhập giá trị n: "))

tong = sum(range(1, n+1))

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

Trúc Thanh
Xem chi tiết
Minh Lệ
12 tháng 3 2023 lúc 21:48

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('Ket qua: ',t);

readln

end.

nguyễn tiến thành
Xem chi tiết
Đặng Phương Linh
28 tháng 3 2023 lúc 5:32

for ... do

program Tinh_S;

uses crt;

var i,n:byte;

     S:longint;

begin

        writeln('Nhap so n='); readln(n);

       S:=0;

       for i:=1 to n do 

           if i mod 2=1 then S:=S+i;

       writeln('Tong cac so le nho hon hoac bang n la, S=',S)

       readln

end.

 

 

 

HT.Phong (9A5)
28 tháng 3 2023 lúc 5:36

* While....do

Uses crt;

var n,i,k: integer;

begin clrscr;

readln(n);

i:=0;

while(i<=n) do begin

i:=i+1;

if(i mod 2<>0) then k:=k+i;

end;

writeln(k);

readln;

end.

* for...do

Uses crt;

var n,i,u: integer;

begin clrscr;

readln(n);

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

writeln(u);

readln;

end.

Đặng Phương Linh
28 tháng 3 2023 lúc 5:36

while... do

program Tinh_P;

uses crt;

var i,n:byte;

      P:longint;

begin

         writeln('Nhap so n='); readln(n);

        P:=0; i:=1;

        while i<=n do

          begin

             if i mod 2=1 then P:=P+i;

             i:=i+1;

          end;

       writeln('Tong so le nho hon hoac bang n la, P=',P);

       readln

end.

 

 

       

         

tâm 8a3
Xem chi tiết