gg làm gì hả bạn

uses crt;

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

i,n,t1,t2,dem1,dem2:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

writeln('Day so vua nhap la: ');

for i:=1 to n do 

  write(a[i]:4);

writeln;

t1:=0;

dem1:=0;

t2:=0;

dem2:=0;

for i:=1 to n do 

 begin

if a[i] mod 2=0 then

begin

t1:=t1+a[i];

inc(dem1);

end

else begin

t2:=t2+a[i];

inc(dem2);

end;

end;

writeln('Trung binh cac so chan la: ',t1/dem1:4:2);

writeln('Trung binh cac so le la: ',t2/dem2:4:2);

readln;

end.

program songuyenduong;

var

     n, i : integer;

     sum : integer;

begin

     writeln('Nhap vao so nguyen duong N: ');

     readln(n);

     sum := 0;

     for i := 1 to n do

     begin

          if i mod 5 = 0 then

               sum := sum + i;

     end;

     writeln(sum);

end.

1 + 1 + 1 

= 2 + 1 

= 3

Hk tốt !!

1+1+1=3

= 3

#Hok tốt

kb nha

8750 : 35 = 250 

cách chia : chia từ trái sang phải chia từng số cho 35

Nữa chu vi thửa ruộng là :

      560 : 2 = 280 ( m )

Chiều rộng thửa ruộng là :

   (280 - 80) : 2 = 100 ( m )

Chiều dài thửa ruộng là :

    100 + 80 = 180 ( m )

Diện tích thửa ruộng là :

   180 x 100 = 18000 ( m² )

           Đáp số : 18000 m²

mik ko biết ai nhanh nhất nhưng mik mới làm

tính hợp lí:

86x121-86x21

(72x9):8

s:real;

a,h:Integer;

c:Integer;

Các kiểu dữ liệu của các biến cần khai báo :

a) a, h : integer

S : real

Giải thích lý do S không thể là integer : a , h có thể là số nguyên, S=a*h/2 ; a * h chưa chắc là 1 số chẵn nên chia 2 có thể ra số thập phân.

b) c, d : integer ( phần nguyên và phần dư đều là số nguyên )

2-2+2-2=0

2-2+2:2=1

2:2+2:2=2

2+2-2:2=3

2+2-2+2=4

Cảm ơn bạn

2x4-(3+5-1)=1

cho mình thật nhiều cách nhé !

(1+3+4)-(2+5)=1

(1+2+5)-(3+4)=1

3x4-2x5-1=1

5-(2x4-1-3)=1

Hai thừa số chênh lệnh nhau là:

63-36=27

Tích đúng là:

33615:27x36=44820

Hai thừa số chênh lệnh nhau là:

63-36=27

Tích đúng là:

33615:27x36=44820

ko biet nha :)