Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Bài 1.
Bước 1. Nhập N và dãy số \(a_1,a_2,...,a_N\)
Bước 2. \(i\leftarrow1\), \(S\leftarrow0\)
Bước 3. \(i\leftarrow i+1\)
Bước 4. 4.1 Nếu \(i>N\) thì kết thúc thuật toán và đưa ra kết quả.
4.2 \(a_i\ge0\) thì quay lại bước 3
4.3 \(S\leftarrow S+a_i\) rồi quay lại bước 3
var
n,k,d,i,s:integer;
begin
write(' nhap n: ');
readln(n);
for i:= 1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
for i:= 1 to n do
if k = a[i] then d:=d+1;
writeln(k,' xuat hien ',d,' lan trong mang ');
for i:= 1 to n do
if a[i] mod 2 = 0 then s:= s+a[i];
write(' tong so chan trong mang la :',s);
readln;
end.
CHÚC BẠN HỌC TỐT :D
ôi chết dưới phần nhập n bạn thêm :
write(' nhap k: ');
readln(k);
CHO mình nha
a)
Input : Các hệ số a,b,c (a
Output:Tất cả các số thực x thoả mãm ax^2+bx+c , Phương trình có nghiệm kép,vô nghiệm, 2 nghiệm phân biệt
Ta có thuật toán:
B1: Nhập 3 số thực a,b,c
B2 : p=b*b-4ac
B3:Nếu p<0 thì đưa ra P vô nghiệm rồi kết thúc
B4 : Nếu P=0 thì đưa ra P có 1 nghiệm kép
B5:Nếu P>0 thì: P có 2 nghiệm phan biệt
B6 ; kt
chua chinh xac de bai yeu cau ta phai tiem nghiem mak
neu p>0 thi X1=(b-canP)/2a X2=(b+canp)/2a
p=0 thi x1=x2=-b/2a
Program HOC24;
uses crt;
var i,n: integer;
a: array[1..1000] of integer;
t: longint;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
begin
read(a[i]);
if (a[i] mod 2=0) and (a[i] mod 5=0) then t:=t+a[i];
end;
readln;
write(t);
readln;
end.
Bước 1: nhập n và nhập dãy số
Bước 2: \(dem\leftarrow0\); \(i\leftarrow1\);
Bước 3: Nếu a[i]=8 thì tăng dem lên
Bước 4: \(i\leftarrow i+1\);
Bước 5: Nếu i<=n thì quay lại bước 3
Bước 6: Xuất dem
Bước 7: Kết thúc
Em viết lại ý tưởng:
- Ta lập một hàm xét xem một số nguyên N có phải là SNT không.
+ nếu N <= 1 thì hiển nhiên không phải
+ nếu N >= 2: ta xét số dư của N cho các số từ 2 đến phần nguyên của căn N
* nếu N chia hết cho bất kỳ số nào trong khoảng [2; phần nguyên căn N] thì N không là SNT, ngược lại N là SNT.
- Áp dụng hàm đó vào dãy a(N), cho biến dem <-- 0;
+ xét từ a[1] trở đi đến a[n], nếu a[i] là SNT thì dem <-- dem+1. Vòng lặp thực hiện đến khi i = N.
- Thông báo giá trị của dem hoặc không có snt trong dãy nếu dem = 0
chịu