Bài 9. Làm việc với dãy số

Hùng Bùi
Xem chi tiết
Ngô Bá Hùng
16 tháng 4 2023 lúc 10:00

n = int(input("Nhap n: "))
sum_even = 0
for i in range(2, n+1, 2):
    sum_even += i
print("Tong cac so chan lien tiep den", n, "la:", sum_even)

 

python ha:0?

Bình luận (4)
Lan Huỳnh
Xem chi tiết
Minh Lệ
14 tháng 4 2023 lúc 21:21

Program HOC24;

var i,n,dem: byte;

d: array[1..20] of integer;

begin

write('Nhap n: '); readln(n);

for i:=1 to n do 

begin

write('D[',i,']='); readln(d[i]);

end;

dem:=0;

for i:=1 to n do if d[i] mod 2<>0 then dem:=dem+1;

write('Co ',d,' phan tu le trong mang');

readln

end.

Bình luận (0)
Hùng Bùi
Xem chi tiết
Hùng Bùi
13 tháng 4 2023 lúc 22:31

giúp mik với

 

Bình luận (0)
Minh Lệ
13 tháng 4 2023 lúc 22:54

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=1 then t:=t+i;

write('Tong cac so le lien tiep la: ',t);

readln

end.

Bình luận (1)
Ngọc hân
Xem chi tiết
Minh Lệ
13 tháng 4 2023 lúc 21:24

Program HOC24;

var i,n,min: integer;

a: array[1..1000] of integer;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do 

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

min:=a[1];

for i:=2 to n do if a[i]<min then min:=a[i];

write('So nho nhat la: ',min);

readln

end.

Bình luận (0)
Bằng Hoàng văn
Xem chi tiết
Thanh Phong (9A5)
13 tháng 4 2023 lúc 10:27

var a: array[1..100] of (integer hoặc longint)

Bình luận (0)
Kiều Vũ Linh
13 tháng 4 2023 lúc 14:05

var a:string;

Bình luận (0)
Quang Bao Bui
Xem chi tiết
Kiều Vũ Linh
13 tháng 4 2023 lúc 14:12

var a:array[1..200] of integer;

x,y,i,n:integer;

begin

write('n = ');readln(n);

write('x = ');readln(x);

write('y = ');readln(y);

for i:=1 to n do

begin

write('a[',i,' = ');readln(a[i]);

end;

for i:=1 to n do

if a[i] = x then a[i]:=y;

writeln('Mang sau khi thay the ');

for i:=1 to n do write(a[i]:10);

readln;

end.

Bình luận (0)
nhannhan
Xem chi tiết
Phía sau một cô gái
13 tháng 4 2023 lúc 14:22

program ChenSoX;

var

     i, j, n, x: integer;

     a: array[1..100] of integer;

begin

     write('Nhập số phần tử trong dãy số: ');

     read(n);

     for i:=1 to n do

     begin

          write('Nhập phần tử thứ ', i, ' của dãy số: ');

          read(a[i]);

     end;

     write('Nhập số x cần kiểm tra và chèn vào dãy số:');

     read(x);

     i := 1;

     while (i <= n) and (a[i] < x) do

          i := i + 1;

     if (i <= n) and (a[i] = x) then

          writeln('Số ', x, ' đã có trong dãy số')

     else

     begin

          for j:=n downto i+1 do

               a[j] := a[j-1];

          a[i] := x;

          writeln('Dãy số mới:');

          for i:=1 to n+1 do

               write(a[i], ' ');

     end;

     readln;

end.

Bình luận (0)
nhannhan
Xem chi tiết
Phan Thanh Tấn Phát 7D
Xem chi tiết
Phía sau một cô gái
11 tháng 4 2023 lúc 14:22

program PSMCG;

var

     arr: array of integer;

     n, i: integer;

begin

     write('Nhap so phan tu cua day so: ');

     readln(n);

     setlength(arr, n);

     for i := 0 to n-1 do begin

          write('Nhap gia tri thu ', i+1, ': ');

          readln(arr[i]);

     end;

     writeln('Gia tri da nhap: ');

     for i := 0 to n-1 do

          writeln(arr[i]);

end.

Bình luận (0)
Trần Văn Dũng
Xem chi tiết