Bài 3: Viết chương trình từ bàn phím số nguyên dương n (n<=100) và dãy A gồm n phần tử số nguyên A1, A2……An. a/ Hãy đếm xem trong dãy có bao nhiêu số nguyên tố trong dãy? b/ Hãy tính tổng các số hoàn hảo có mặt trong dãy số? Yêu cầu: Viết chương trình con nhập dãy số A từ bàn

vit2009

2 năm trước

Bài 3: Viết chương trình từ bàn phím số nguyên dương n (n<=100) và dãy A gồm n phần tử số nguyên A1, A2……An. a/ Hãy đếm xem trong dãy có bao nhiêu số nguyên tố trong dãy? b/ Hãy tính tổng các số hoàn hảo có mặt trong dãy số? Yêu cầu: Viết chương trình con nhập dãy số A từ bàn phím.

Loga Sinh Học lớp 12

0 lượt thích 20 xem

1 trả lời

Thích Trả lời

195333754843490

Program Mang;
Uses crt;
Var A: array[1..100000] of longint;
n, cnt, sum, i: longint;

Function is_Prime(a: longint): boolean;
Var i: longint;
Begin
If a < 2 then exit(false);
For i:=2 to trunc(sqrt(a)) do
If a mod i = 0 then exit(false);
exit(true);
End;

Function isHH(a: longint): boolean;
Var ans, i: longint;
Begin
ans := 0;
For i:=1 to a div 2 do
If a mod i = 0 then ans := ans + i;
If ans = a then exit(true);
exit(false);
End;

Begin
Clrscr;
Write('Nhap n: '); Readln(n);
cnt := 0;
sum := 0;
For i:=1 to n do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
If is_Prime(A[i]) then inc(cnt);
If isHH(A[i]) then sum := sum + A[i];
End;

Writeln('Co ',cnt,' so nguyen to');
Write('Tong cac so hoan hao la ',sum);

Readln
End.

Vote (0) Phản hồi (0) 2 năm trước

hoang100709

uses crt;
var n,i,count,res:longint;
a:array[1..100]of longint;
function isPrimeNumber(n:longint):boolean;
var i:longint;
begin
if n<2 then exit(false);
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then exit(false);
exit(true);
end;
function isPerfectNumber(n:longint):boolean;
var i,res:longint;
begin
res:=0;
for i:=1 to n div 2 do
if n mod i=0 then inc(res,i);
if res=n then exit(true) else exit(false);
end;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
readln(a[i]);
if isPrimeNumber(a[i]) then inc(count);
if isPerfectNumber(a[i]) then inc(res,a[i]);
end;
writeln(count);
writeln(res);
readln;
end.
//Harry Le

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Mọi người giúp mk với ạ Mọi người giúp mk làm trắc nghiệm và tự luận nha Cảm ơn mọi người 2 giờ chiều mk qua lấy

giúp mình ý c với cần gáp mng giúp mk vs

trong các khẳng định dưới đây khẳng định nào đúng nhất A mọi vật đều có khả năng nhiễm điện khi cọ xát B. các chất khí mới có khả năng nhiễm điện khi cọ xát C chỉ có các chất rắn mới có khả năng nhiễm điện cọ xát D. các chất lỏng mới có khả năng nhiễm điện khi cọ xát vào những ngày đông thời tiết hanh khô khi chỉ chải tóc bằng lược nhựa ta thấy tóc bị lược nhựa hút khéo thẳng ra hiện tượng nhiễm điện này giống với hiện tượng điện nào dưới đây A cọ xát thước nhựa dẹt với mảnh vải khô B cọ xát thanh thủy tinh hữu cơ với mảnh lụa C cọ xát mảnh phim nhựa với mảnh len D cả 3 cách trên cường độ dòng điện qua bóng đèn điốt phát quang là 2,5 A trong những ampe kế có giới hạn đo như sau ampe kế nào phù hợp để đo cường độ dòng điện sau A 3000mA B 20A C 1,5A D 0,5A

ai lm hộ mk vs ạ mk cần trước 1h chiều nay

Làm giúp mình với mình cần giúp

tìm tất cả các nghiệm nguyên của phương trình x^2+6x=y^2

Bài 1: Số nguyên tố là số có 2 ước là 1 và chính nó. Hãy viết chương trình con kiểm tra 1 số nguyên có là số nguyên tố hay không?

Tìm từ có cách phát âm khác những từ còn lại

Giải các pt: (Tanx-√3).(1-tanx)=0

trình bày phương pháp hóa học phân biệt các dung dịch đựng trong các lọ mất nhãn sau :HCl, HNO3, H2SO4. viết phương trình hóa học của các phản ứng

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến