Bài 1:Cho dãy số sau:1;7;13;19;25;... Số thuộc dãy số trên là
Bài 2:trong các số tự nhiên từ 1000 đến 9999 có bao nhiêu số ko chi hết cho 3
bài 1: cho dãy số sau; 1,3,5,7,9,11,...,47,49,51. a] dãy số trên có bao nhiêu số _____________________________________ b] tính tổng của dãy số trên ____________________________________ c] dãy số trên có bao nhiêu chữa số _____________________________________
a) Số lượng chữ số là:
\(\left(51-1\right):2+1=26\) (số hạng)
b) Tổng của dãy số:
\(\left(51+1\right)\times26:2=676\)
c) Số lượng chữ số của dãy số trên:
\(1\times5+\left(26-5\right)\times2=47\) (chữ số)
Bài 1 : cho dãy số 1, 2, 4, 7, 11, 16, 22,... (dãy số có 20 số hạng). Tính tổng dãy số trên.
Bài 2 : Cho Dãy Số Sau: 4, 7, 10, 13, … Tìm Số Hạng thứ 70 Và Tổng Của Dãy Số.
LẬP TRÌNH TRÊN SCRATCH
Giúp mình giải !
ai giải dc thì solo flo
Bài 5: Cho dãy số: 1, 2, 4, 5, 7, 8, 10, 11, 13, 14, … Tìm số hạng thứ 30 của dãy số trên.
Bài 6: Cho dãy số: 1, 8, 15, 22, 29, 36, … Tìm số hạng thứ 100 của dãy số trên.
Bài 7: Cho dãy số: 1, 2, 5, 6, 9, 10, 13, 14, … Tìm số hạng thứ 101 của dãy số trên.
Xây dựng thuật toán cho bài toán sau: Cho dãy A gồm N số nguyên a1,a2,...,aN và 1 số nguyên k cho trước. Đếm và đưa ra số lượng các ai = k. Mô phỏng thuật toán với 1 dãy số cụ thể.
VD: N=5, K=3, A1=2, A2=3, A3=3, A4=5, A5=6
i | 1 | 2 | 3 | 4 | 5 |
ai | 2 | 3 | 3 | 5 | 6 |
dem | 0 | 1 | 2 | 2 | 2 |
Bài 1. Dãy số Fibonacci thỏa mãn tính chất tổng hai số liên tiếp bằng số tiếp theo của dãy : 1, 1, 2, 3, 5, 8, ...
Biết dãy số sau liên quan đến dãy số Fibonacci, hãy tìm số tiếp theo : 2, 3, 5, 7, 10, 14, ...
Bài 2. Tìm phân số tiếp theo của dãy phân số : 1/2 , 1/3 , 1/7 , 1/25, 1/121, ....
Bài 1: VCT đếm các phần tử là số nguyên âm chẵn của dãy b số nguyên từ bàn phím. Sau in kết dãy số và kết quả r màn hình
Bài 2: VCT tính tổng các phần tử chia hết cho 5 của dãy n sô nguyên nhập từ bàn phím. Sau đó in dãy số và kết quả r màn hình
(Giúp mik vs ạ)
Bài 1: VCT đếm các phần tử là số nguyên âm chẵn của dãy n số nguyên từ bàn phím. Sau đó in kết quả ra màn hình Bài 2:VCT tính tổng các phần tử chia hết cho 5 của dãy n số nguyên nhập từ bàn phím. Sau đó in dãy số và kết quả r màn hình Bài 3: VCT tính tích các phần tử là số chẵn của dãy n nhập từ bàn phím và in kết quả r màn hình (Giúp mik vs ạ)
Bài 1:
Program HOC24;
var a: array[1..1000] of integer;
i,n,d: integer;
begin
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
for i:=1 to n do if (a[i]<0) and (a[i] mod 2=0) then d:=d+1;
write('Co ',d,' so nguyen am chan trong day so');
readln
end.
Bài 2:
Program HOC24;
var a: array[1..1000] of integer;
i,n: integer;
t: longint;
begin
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
t:=0;
for i:=1 to n do if a[i] mod 5=0 then t:=t+a[i];
write(Tong la: ',t);
readln
end.
Bài 3:
Program HOC24;
var a: array[1..1000] of integer;
i,n: integer;
t: longint;
begin
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
t:=1;
for i:=1 to n do if (a[i] mod 2=0) then t:=t*a[i];
write('Tich la: ',t);
readln
end.
Biểu diễn thuật toán bằng 2 cách liệt kê + sơ đồ khối cho bài toán sau:
Cho 1 dãy gồm N số hạng a1,a2 ,...aN. Đếm số số nguyên dương của dãy đã cho.
Bạn biết đáp án chưa á bạn gửi mình xem với mai là mình phải nộp cô rôi
Bài 1. Cho dãy số nguyên N và dãy a1, a2, a3, .., an (0<=N<=10^6; i=0,1,2,…,N – 1; |a(i)|<=10^6.Yêu cầu: Cho N và dãy a1, a2, a3, …, an; xóa phần tử x và xuất mảng sau khi xóa.
Bài 2. Cho dãy số nguyên N và dãy a1, a2, a3, …, an(0<=N<=10^6; i=0,1,2,…,N – 1; |a(i)|<=10^6.Yêu cầu: Cho N và dãy a1, a2, a3, …, an; xóa các phần tử trùng nhau chỉ giữ lại một phần tử và xuất mảng sau khi xóa.
Ai đó giúp mình 2 bài này theo pascal với được ko? Mình thật sự không biết làm :(( Ai đó giúp mình 2 bài này theo pascal với được ko? Mình xin cảm ơn nhiều!!
Bài 1:
uses crt;
var a:array[1..1000000]of longint;
i,n,x:longint;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap x='); readln(x);
for i:=1 to n do
if a[i]<>x then write(a[i]:4);
readln;
end.