Đa phương tiện

Trần Nhật Phong
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 1 2021 lúc 23:07

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.

Bình luận (0)
Trần Trần
Xem chi tiết
Minh Lệ
18 tháng 1 2021 lúc 19:50

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.

Bình luận (0)
Nguyễn Lê Phước Thịnh
18 tháng 1 2021 lúc 21:34

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.

Bình luận (0)
Huy Nguyen
11 tháng 3 2021 lúc 21:18

,,,

Bình luận (1)
mèo mèo
Xem chi tiết
Minh Lệ
14 tháng 12 2020 lúc 18:47

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é

undefined

Bình luận (4)
Thảo Phương
Xem chi tiết
Hung nguyen
24 tháng 7 2018 lúc 9:11

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.

Bình luận (3)
Hung nguyen
24 tháng 7 2018 lúc 9:21

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.

Bình luận (10)
Trần Minh Hoàng
27 tháng 7 2018 lúc 8:55

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ó

Bình luận (0)
Hồ Thịnh
Xem chi tiết
Thanh Tuấn
Xem chi tiết
Phương Minh
Xem chi tiết
Nguyễn Tấn Tài
29 tháng 9 2017 lúc 19:39

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.

Bình luận (0)