1.f

2.e

3.c

4.d

5.b

uses crt;

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

i,n,dem1,dem2:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

for i:=1 to n do write(a[i]:4);

writeln;

dem1:=0;

for i:=1 to n do 

  if (a[i]>a[i-1]) and (a[i]>a[i+1]) then dem1:=dem1+1;

dem2:=0;

for i:=1 to n do 

  if (a[i]<a[i-1]) and (a[i]<a[i+1]) then dem2:=dem2+1;

writeln(dem1);

writeln(dem2);

readln;

end.

Số học sinh nữ của lớp 5a là:

(31+1):2=16( học sinh nữ)

Số học sinh nam của lớp 5a là:

16-1=15(học sinh nam)

 a. Tỉ số phần trăm của số học sinh nữ so với số học sinh lớp 5a là:

16:31=0,5161...=51,61%

b.Tỉ số phần trăm của số học sinh nam so với số học sinh lớp 5a là:

15:31=0,4838...=48,38%

c.Tỉ số phần trăm của số học sinh nam so với số học sinh nữ là:

15:16=0,9375=93,75%

Ta có: \(N=\frac{1}{1.2}+\frac{1}{2.3}+\frac{1}{3.4}+....+\frac{1}{2005.2006}\)

\(\Rightarrow N=1-\frac{1}{2}+\frac{1}{2}-\frac{1}{3}+\frac{1}{3}-\frac{1}{4}+....+\frac{1}{2005}-\frac{1}{2006}\)

          \(=1-\frac{1}{2006}=\frac{2005}{2006}\)

 \(M=\frac{2}{1.3}+\frac{2}{3.5}+\frac{2}{5.7}+....+\frac{2}{2015.2017}\)

      \(\Rightarrow1-\frac{1}{3}+\frac{1}{3}-\frac{1}{5}+\frac{1}{5}-\frac{1}{7}+....+\frac{1}{2015}-\frac{1}{2017}\)

        \(=1-\frac{1}{2017}=\frac{2016}{2017}\)

N = 1/1 - 1/2 + 1/2 - 1/3 + 1/3 - 1/4 +...+ 1/2005 - 1/2006

   = 1/1 - 1/2006

   = 2006/2006 - 1/2006

   =  2005/2006

Bài 2: 

a: 5/4<7/4

b: 2/3=34/51

9/17=27/51

mà 34>27

nên 2/3>9/17

Bài 3: 

a: 1/3+3/8=8/24+9/24=17/24

b: 7/6+5/18=21/18+5/18=26/18=13/9

Từng bài 1 thôi nhé

Bài 2: 

a: 5/4<7/4

b: 2/3=34/51

9/17=27/51

mà 34>27

nên 2/3>9/17

Bài 3: 

a: 1/3+3/8=8/24+9/24=17/24

bài 4:so sánh

5/2 lớn hơn 3/7

4/3 lớn hơn,3/2 lớn hơn 

bài 6:rút gọn các phân số sau:

3/9=1/3      9/12=3/4          8/18=4/9         60/36=10/6         17/34=1/2              17/51=1/3           35/100=7/20           25/100=1/4                  8/1000=1/125                 24/30=4/5           18/54=1/3           72/42=12/7

đay nhé mk chưa làm hết đc bn viết liền quá mk nhìn khó mà mk hỏi bài 7 là nhân hay cộng vậy?

4 phần 5 trừ 11 phần 5 =

1 + 1 = 2

2 + 2 = 4

3 + 3 = 6

4 + 4 = 8

5 + 5 = 10

bài 5 ta tính tổng cả ba số đi rồi quy đồng tử số là ra có gì đâu

Đăng từng bài một thôi thì mình mới trả lời được !

Giúp mình 2 bài giải này nhé !!

Bài 1 : Khối lớp 5 của một trường TH có 150 học sinh, trong đó có 78 HS nữ.

a.Tính tỉ số phần trăm của số HS nữ với HS khối 5.

b. Tính tỉ số phần trăm của số HS nam với số HS khối 5.

c. Tính tỉ số phần trăm của số HS nam với số HS nữ.

bài 2: Lớp 5A có 31. Biết số bạn nam ít hơn số bạn nữ 1 bạn. Tìm tỉ số phần trăm của số bạn nam và số bạn nữ lớp 5A.

a. Tính tỉ số phần trăm của số HS nữ với số HS lớp 5A.

b. Tính tỉ số phần trăm của số HS nam với số HS lớp 5A.

c. Tính tỉ số phần trăm của số HS nam với số HS nữ.

Đọc tiếp...

ra bài ngu

program bt;
uses crt;
var i, s, sa, sd, sc, sl, da, dd, dc, dl : integer;
a : array[1..50] of integer;
begin
        clrscr;
        for i:=1 to 10 do begin
         write('Nhap phan tu thu ',i,': '); readln(a[i]);
        end;
        write('Day so vua nhap la: ');
        for i:=1 to 10 do write(a[i],', ');
        writeln;
        s := 0; sa := 0; sd := 0; sc := 0; sl := 0; da := 0; dd := 0; dc := 0; dl := 0;
        for i:=1 to 10 do begin
         s := s + a[i];
         if (a[i] > 0) then begin sd := sd + a[i]; dd := dd + 1 end;
         if (a[i] < 0) then begin sa := sa + a[i]; da := da + 1 end;
         if (a[i] mod 2 = 0) then begin sc := sc + a[i]; dc := dc + 1; end
         else begin sl := sl + a[i]; dl := dl + 1 end;
        end;
        writeln('Tong cac phan tu trong mang la ',s);
        writeln('Trung binh cong cac phan tu trong mang la ',s/10);
        writeln('Tong cac so am la ',sa);
        writeln('Tong cac so duong la ',sd);
        writeln('Tong cac so chan la ',sc);
        writeln('Tong cac so le la ',sl);
        writeln('So cac so am la ', da);
        writeln('So cac so duong la ', dd);
        writeln('So cac so chan la ', dc);
        writeln('So cac so le la ', dl);
        readln
end.

 tách ra từng câu hỏi đi bro

Câu 1: 

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

t:=0;

for i:=1 to n do 

 if a[i] mod 2=0 then t:=t+a[i];

writeln(t);

readln;

end.

2:

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

t:=1;

for i:=1 to n do 

  t:=t*a[i];

writeln(t);

readln;

end.