Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Pham Trong Bach
Xem chi tiết
Cao Minh Tâm
5 tháng 11 2017 lúc 17:41

nguyễn thanh minh nhật
Xem chi tiết
Trường Giang Vũ
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 6 2020 lúc 20:34

uses crt;

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

n,i,dem,tbc:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

writeln('Cac so chan la: ');

dem:=0;

tbc:=0;

for i:=1 to n do
if a[i] mod 2=0 then

begin

write(a[i]:4);

inc(dem);

tbc:=tbc+a[i];

end;

writeln;

writeln('So phan tu chan la: ',dem);

writeln('Trung binh cong cua cac so chan trong day la: ',tbc/dem:4:2);

readln;

end.

Le Minh Hieu
Xem chi tiết
Ngô Hồng Thuận
Xem chi tiết
Đặng Minh Triều
15 tháng 6 2016 lúc 21:48

http://olm.vn/hoi-dap/question/104313.html

coi hỉu j ko tui đang mò

Bạch Tuyết Nguyễn
22 tháng 7 2016 lúc 20:35

hhi

Pham Trong Bach
Xem chi tiết
Cao Minh Tâm
1 tháng 7 2019 lúc 12:29

Đáp án đúng : B

Nguyễn Thị Mỹ Tâm
Xem chi tiết
Nguyễn Lê Phước Thịnh
24 tháng 3 2021 lúc 20:23

uses crt;

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

i,n,dem,kt,t: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 a[i] mod 3=0 then inc(dem);

t:=abs(a[2]-a[1]);

kt:=0;

for i:=1 to n do 

if t<>abs(a[i]-a[i-1]) then 

begin

kt:=1;

break;

end;

if kt=0 then writeln('Day la cap so cong')

else writeln('Day khong la cap so cong');

readln;

end.

thanh thuý
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 5 2021 lúc 19:56

Câu 1:

uses crt;

var n,i,kt:integer;

begin

clrscr;

write('Nhap n='); readln(n);

if n<2 then writeln(n,' khong la so nguyen to')

else begin

kt:=0;

for i:=2 to n-1 do 

  if n mod i=0 then kt:=1;

if kt=0 then writeln(n,' la so nguyen to')

else writeln(n,' khong la so nguyen to');

end;

readln;

end.

Nguyễn Lê Phước Thịnh
10 tháng 5 2021 lúc 19:57

Câu 2: 

uses crt;

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

i,n,max,min:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

max:=a[1];

min:=a[1];

for i:=1 to n do 

  begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln('So lon nhat la: ',max);

writeln('So nho nhat la: ',min);

readln;

end.

Mai Duyên-08-83
Xem chi tiết
Nguyễn Lê Phước Thịnh
13 tháng 1 2022 lúc 23:20

#include <bits/stdc++.h>

using namespace std;

long long n,x,t;

int main()

{

cin>>n;

t=0;

while (n>0)

{

x=n%10;

t=t+x;

n/=10;

}

cout<<t;

return 0;

}

Kiều Vũ Linh
14 tháng 1 2022 lúc 15:56

Var t,n:integer;

begin

write('nhap n = ');readln(n);

while n div 10 <> 0 do

begin

t:=t+(n mod 10);

n:=n div 10;

end;

write('Tong cac chu so cua ',n,' la ',t);

readln;

end.

Ngọc Hưng
Xem chi tiết
Khôi Bùi
28 tháng 3 2022 lúc 18:00

Gọi O là tâm của hình bình hành ABCD; G = SO∩AM ⇒ G là trọng tâm ΔSAC ⇒ SG/SO = 2/3 ⇒ G cũng là trọng tâm ΔSBD

G ∈ AM ⊂ (P); G ∈ SO ⊂ (SBC) (1)

B' ∈ (P) và B' ∈ SB ⊂(SBC) (2)

D' ∈ (P) và D' ∈ SD ⊂(SBC) (3)

Từ (1); (2); (3) ⇒ G; B' D' ∈ giao tuyến của (P) và (SBC)

Trong (SBC) vẽ BM//SO//DN (M, N ∈ B'D') ⇒ OG là đường trung bình của hình thang BDNM 

⇒ BM + DN = 2OG = SG

Ta có :

x = SB/SB' = (SB' + BB')/SB' = 1 + BB'/SB' = 1 + BM/SG

y = SD/SD' = (SD' + DD')/SD' = 1 + DD'/SD' = 1 + DN/SG

⇒ x + y = 2 + (BM + DN)/SG = 2 + 1 = 3

1/x + 1/y = SB'/SB + SD'/SD = a/b

⇒ 3a/b = (x + y)(1/x + 1/y) ≥ 2√(xy).2√(1/xy) = 4

⇒ u = a/b ≥ 4/3 tối giản ⇒ GTNN của u = 4/3 xảy ra khi x = y ⇔ SB'SB' = SD/SD' ⇔ B'D'//BD