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