K
Khách

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.

5 tháng 5 2023

def is_prime(num):

      if num < 2:

            return False

      for i in range(2, int(num ** 0.5) + 1):

            if num % i == 0:

                  return False

            return True

def is_fibonacci(num):

      if num == 0 or num == 1:

            return True

      x = 0

      y = 1

      while y < num:

            z = x + y

            x = y

            y = z

      if y == num:

            return True

      else:

            return False

n = int(input("Nhập số phần tử của dãy: "))

arr = [ ]

for i in range(n):

      num = int(input(f"Nhập phần tử thứ {i+1}: "))

      arr.append(num)

sum = 0

for num in arr:

      if is_prime(num) and is_fibonacci(num):

            sum += num

print(f"Tổng các phần tử vừa là số nguyên tố vừa là số fibonacci trong dãy là: {sum}")

13 tháng 6 2023

c++:

#include <iostream>

using namespace std;

int main(){

int y;

cin >> y;

int i = 1;

int luythua = 1;

while(i<=y){

luythua = luythua *i;

i = i+1;

}

cout << luythua;

}

26 tháng 7 2023

with open("a.txt", "r") as f:

     numbers = list(map(int, f.readline().split()))

product = 1

for number in numbers:

     product *= number

print("Tích các số trong file a.txt là:", product)

13 tháng 6 2023

c++:

#include <iostream> //tim tat ca uoc cua n.
using namespace std;

int main() {
int n;
cout << "Nhap so n: ";
cin >> n;
cout << "Tat ca cac uoc cua so " << n << " la ";
for(int i = 1; i <= n; i++) {
if(n % i == 0) {
cout << i << " ";
}
}
return 0;
}
5 tháng 5 2023

Bài 5:

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

i,n,max:integer;

sc, sl:longint;

Begin

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

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');rreadlna[i]);

If a[i] mod 2 = 0 then sc:=sc+b[i];

If a[i] mod 2 <> 0 then sl:=sl+a[i];

End;

max:=a[1];

For i:=2 to n do

If a[i] > max then max:=a[i];

Writeln('Tong cac so chan la ',sc);

Writeln('Tong cac so le la ',sl);

write('So lon nhat la ',max);

Readln

End.

5 tháng 5 2023

Xin cảm ơnloading...  

Câu 4 (NB): Cấu trúc lặp có bao nhiêu dạng:A. 1                             B. 2                                         C. 3                             D. 4 Câu 14 (NB): Trong câu lệnh khai báo biến mảng, phát biểu nào sau đây đúng:               A. Chỉ số đầu  chỉ số cuối;                                    B. Chỉ số đầu >  chỉ số cuối;   C. Kiểu dữ liệu chỉ có thể là real;                            D. Kiểu dữ liệu chỉ có thể là...
Đọc tiếp

Câu 4 (NB): Cấu trúc lặp có bao nhiêu dạng:

A. 1                             B. 2                                         C. 3                             D. 4

 

Câu 14 (NB): Trong câu lệnh khai báo biến mảng, phát biểu nào sau đây đúng:

               A. Chỉ số đầu  chỉ số cuối;                                    B. Chỉ số đầu >  chỉ số cuối;

   C. Kiểu dữ liệu chỉ có thể là real;                            D. Kiểu dữ liệu chỉ có thể là integer;

 

Câu 18 (TH). Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện công việc gì?

i := 0 ;              while i <> 0 do write(i, ‘ ’) ;

A.                Đưa ra màn hình 10 chữ số 0 ;

B.                 Không đưa ra thông tin gì;     

C.                 Lặp vô hạn việc đưa ra màn hình số 0 ;

D.                Đưa ra màn hình một chữ số 0 ;

Câu 19 (TH). Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện công việc gì?

T := 0 ;

For i := 1 to N do

            If (i mod 3 = 0) or (i mod 5 = 0) then T := T + i ;

A.                Tính tổng các số chia hết cho 3 hoặc 5 trong phạm vi từ 1 đến N ;              

B.                 Tính tổng các ước thực sự của N ;

C.                 Tính tổng các số chia hết cho cả 3 và 5 trong phạm vi từ 1 đến N ;

D.                Tìm một ước số của số N ;

Câu 20 (TH). Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau cho kết quả trên màn hình là gì với i là biến số nguyên?

For i := 1 to 100 do if i mod 9 = 0 then write(i, ‘ ’);

A.                1 2 3 4 5 6 … 100 ;

B.                 91827364554637281;            

C.                 9 18 27 36 45 54 63 72 81 90 99;                  

D.                9  9  9  9  9  9  9  9  9  9

giupws với !!!!!!!!!!!!!!!!!!!!

0
5 tháng 5 2023

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

i,n,min:integer;

begin

write('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 min > a[i] then min:=a[i];

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

readln

end.

5 tháng 5 2023

if a[i]<min nha bạn mình đang tìm số nhỏ nhất mà:)