Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Long ca ca
Cho số nguyên dương N, ta có dãy số A gồm các số nguyên từ 1 đến N. Phép nén dãy số là tạo ra dãy số mới mà các phần tử được tạo ra bằng cách lần lượt cộng hai số cạnh nhau của dãy số ban đầu.     Mỗi lần nén dãy số, dãy số mới sẽ ít hơn dãy số trước một phần tử. Ta nén dãy số đến khi còn một phần tử, phần tử đó là giá trị nén dãy số. Yêu cầu: in ra giá trị nén của dãy số. Vì kết quả có thể rất lớn, nên chỉ cần in ra số dư của phép chia giá trị nén dãy số cho 1000000000 (10^9).Ví dụ với N4 ta có...
Đọc tiếp

Những câu hỏi liên quan
APOK FF
Xem chi tiết
ngoc tran
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 2 2022 lúc 14:42

undefined

ngoc tran
19 tháng 2 2022 lúc 15:24

Không có mô tả.

ngoc tran
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 4 2022 lúc 7:03

uses crt;

var i,n:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

  if i mod 2=1 then write(i:4);

for i:=1 to n do 

  if i mod 2=0 then write(i:4);

readln;

end.

Phùng Phúc An
Xem chi tiết
Trần Văn Dũng
Xem chi tiết
ngo minh duc
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 3 2021 lúc 9:26

Câu 7:

const fi='dayso.inp'

fo='dayso.out'

var f1,f2:text;

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

i,n,dem,j,t,kt,dem1:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

for i:=1 to n do 

  read(f1,a[i]);

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln(f2,'Tong cua day so la: ',t);

b[1]:=a[1];

dem:=1;

for i:=1 to n do 

  begin

kt:=0;

for j:=1 to dem do 

  if a[i]=b[j] then kt:=1;

if kt=0 then

begin

inc(dem);

b[dem]:=a[i];

end;

end;

for i:=1 to dem do 

  begin

dem1:=0;

for j:=1 to n do 

  if b[i]=a[j] then inc(dem1);

writeln(f2,b[i],' xuat hien ',dem1,' lan');

close(f1);

close(f2);

end.

Ngọc Ty
Xem chi tiết
Kiều Vũ Linh
24 tháng 4 2023 lúc 18:56

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

i,n:integer;

s:longint;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

s:=s+a[i];

End;

Write('Cac phan tu vua nhap la ');

For i:=1 to n do

Write(a[i]:8);

Writeln;

Write('Tong cua chung la ',s);

Readln

End.

huynh chinh
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 4 2022 lúc 21:49

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i;

int main()

{

freopen("dayd.inp","r",stdin);

freopen("dayd.out","w",stdout);

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++)

if (a[i]>0) cout<<a[i]<<" ";

return 0;

}

Nguyễn Trường An
Xem chi tiết
lê thị bích ngọc
19 tháng 11 2021 lúc 16:36

bạn hỏi khó thế, đây mới là phần cho lớp 8 thôi mà