Vct nhập vào mảng n phần tử. Xuất ra các số chính phương ,số nguyên tố trong mãng. Nếu ko có thì xuất ra màn hình là ko có
Pascal nha
Xem chi tiết
Đa phương tiện
uses crt;
var a,b,c:array[1..100]of integer;
i,n,dem,dem1,kt,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if sqrt(a[i])=trunc(sqrt(a[i])) then
begin
inc(dem);
b[dem]:=a[i];
end;
dem1:=0;
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to trunc(sqrt(a[i])) do
if a[i] mod j=0 then kt:=1;
if kt=0 then
begin
inc(dem1);
c[dem1]:=a[i];
end;
end;
if dem=0 then writeln('Trong day khong co so chinh phuong')
else begin
writeln('Cac so chinh phuong trong day la: ');
for i:=1 to dem do
write(b[i]:4);
end;
if dem1=0 then writeln('Trong day khong co so nguyen to')
else begin
writeln('Cac so nguyen to trong day la: ');
for i:=1 to dem1 do
write(c[i]:4);
end;
readln;
end.
Đúng 1
Bình luận (0)
viết chương trình:Tính tổng S = 1+ \(\dfrac{1+2}{2!}+\dfrac{1+2+3}{3!}+...+\dfrac{1+2+3+...+n}{n!}\)
2!=1.2
3!=1.2.3
Thanks!
Program HOC24;
var s: real;
i,n: integer;
function tong(x: integer): longint;
var j: integer;
t: longint;
begin
t:=0;
for j:=1 to x do t:=t+j;
tong:=t;
end;
function tich(s: integer): longint;
var j1: integer;
t1: longint;
begin
t1:=1;
for j1:=1 to s do t1:=t1*j1;
tich:=t1;
end;
begin
write('Nhap N : '); readln(n);
for i:=1 to n do s:=s+tong(i)/tich(i);
write('S = ',S:2:2);
readln
end.
Đúng 2
Bình luận (0)
uses crt;
var s:real;
i,n:longint;
{------------ham-tinh-giai-thua------------------------}
function gthua(x:longint):real;
var gt:real;
i:longint;
begin
gt:=1;
for i:=1 to x do
gt:=gt*i;
gthua:=gt;
end;
{-------------------chuong-trinh-con-tinh-tong---------------------}
function tong(x:longint):real;
var t:real;
i:longint;
begin
t:=0;
for i:=1 to x do
t:=t+i;
tong:=t;
end;
{------------------chuong-trinh-chinh--------------------}
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+(tong(i)/gthua(i));
writeln('Ket qua la: ',s:4:2);
readln;
end.
Đúng 0
Bình luận (0)
Mọi người cho mình biết cách đổi ảnh đại diện hoc24 được ko
Bạn vào trang cá nhân của mình ấn vào dấu + mình đã khoanh và ấn vào biểu tượng máy ảnh, sau đó nhấp tiếp lên màn hình và để chọn ảnh bạn muốn thay đổi nhé
Đúng 2
Bình luận (4)
TP
23 tháng 7 2018 lúc 14:39
Viết chương trình tính tổng và giải thích cách tìm công thức tổng quát của bài toán:
\(S=\sqrt{1+\sqrt{2+....+\sqrt{n-1+\sqrt{n}}}}\) vơi nhập từ bàn phím.
(*Kiến thức mới: SQRT(x) :\(\sqrt{x}\))
program Lam_Lui;
var S:extended;
i,n:integer;
begin
clrscr;
write('Nhap n = ');
readln(n);
S:=0;
for i:=n downto 1 do S:=sqrt(i+S);
write('Sai tự chịu: ',S);
readln;
end.
Đúng 0
Bình luận (3)
program Lam_Lui;
var S:extended;
i,n:integer;
begin
clrscr;
write('Nhap n = ');
readln(n);
S:=0;
for i:=n downto 1 do S:=sqrt(i+S);
writeln('Sai tự chịu: ',S);
readln;
end.
Đúng 0
Bình luận (10)
Trong MSWLOGO:
To tinhtoan :n
CS
make "A 0
FOR [i :n 1 -1][Make "A :A+sqrt(:i+:A)]
RT 90 LABEL (List "Tong "la: :A)
end
Mọi thắc mắc xin gửi về tổng đài: 1900, 1 ko ko có
Đúng 0
Bình luận (0)
Xem thêm câu trả lời
Các bước tạo trình chíu khgg có âm thanh để chuyển trang nhanh mà bằng click chuột
Cho e hỏi các anh chị. E muốn làm một trang tính <a href="https://tralicham">âm lịch</a> đơn giản thì e phải nên làm như thế nào ?. Dùng ngôn ngữ nào ?.
viet chương trinh nhap 2 so nguyen m,n từ bàn phím (n,m nguyen dương va nhỏ hon 1000) hay tim 2 và đưa ra màn hinh 2 số p,q mà p là tữ số q là mẫu số khi da tối giản
USES crt;
VAR n,m,p,q:integer;
Function UCLN(x,y:integer):integer;
Var i,t:integer;
Begin
for i:=1 to x do
if (x mod i=0) and (y mod i =0) then t:=i;
UCLN:=t;
End;
BEGIN
clrscr;
write('Nhap n:'); readln(n);
write('Nhap m:'); readln(m);
p:=n div UCLN(n,m); q:=m div UCLN(n,m);
write('Cap (p,q) la:',p,' ',q);
readln;
END.
Đúng 0
Bình luận (0)