Program Chan_le;

uses crt;

var a: integer;

begin

clrscr;

write('nhap vao so a ='); readln(a);

if ( a mod 2 = 0 ) then write(' a la so chan ')

else

write('a la so le ');

readln;

end.

program bai3;

uses crt;

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

n,i: integer;

s: real;

begin

clrscr;

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

for i:= 1 to n do

begin

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

end;

writeln('cac so chan trong day la :');

for i:= 1 to n do

if a[i] mod 2 = 0 then write(a[i] : 4);

writeln;

s:=0;

for i:= 1 to n do

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

writeln('tong cua chung = ',s);

readln;

end.

Program bai2;

uses crt;

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

i,n,k,dem: integer;

begin

clrscr;

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

for i:= 1 to n do

begin

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

end;

dem:=0;

write('nhap so k ='); readln(k);

for i:= 1 to n do

if a[i] = k then dem:= dem+1;

writeln('co ',dem,' so ',k,' xuat hien trong mang ');

readln;

end.

Program bai1;

uses crt;

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

i,n: integer;

begin

clrscr;

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

for i:= 1 to n do

begin

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

end;

writeln('cac so chia het cho 3 :');

for i:= 1 to n do

if ( a[i] mod 3 = 0) then write(a[i] :4);

readln;

end.

Program bai1;

uses crt;

var a,b: real;

begin

clrscr;

write('nhap so thu nhat ='); readln(a);

write('nhap so thu hai ='); readln(b);

writeln('tong cua hai so = ' ,a+b :4:2);

writeln;

writeln('trung binh cong cua hai so =' ,(a+b)/2 :4:2);

readln;

end.

program Dien_tich;

uses crt;

var a,b,h: real;

begin

clrscr;

write('nhap day nho ='); readln(a);

write('nhap day lon ='); readln(b);

write('nhap chieu cao ='); readln(h);

while ( a < 0 ) and ( b < 0) and (c < 0) do

write('nhap lai day nho ='); readln(a);

write('nhap lai day lon ='); readln(b);

write('nhap lai chieu cao ='); readln(h);

writeln;

writeln('Dien tich hinh thang = ', 1/2 * (a+b) * h :4:2);

readln;

end.

Sinh trưởng và phát dục là quá trình biến đổi liên tục về:

A. Chất

B. Lượng

C. Cả A và B đều đúng

D. Đáp án khác

Program trung_binh_cong;

uses crt;

var a,b,c: real;

begin

clrscr;

write('nhap so a , b , c =' ,); readln(a,b,c):

writeln('trung binh cong cua 3 so = ' ,(a+b+c) / 3);

readln;

end.

Program trung_binh_cong;

uses crt;

var a,b,c: real;

begin

clrscr;

write('nhap so a , b , c =' ,); readln(a,b,c):

writeln('trung binh cong cua 3 so = ' ,(a+b+c) / 3;

readln;

end.

nhập độ dài chung của các hình hay là nhập riêng.nếu nhập chung phải nhập thêm chiều cao ,cạnh đáy để tính chuvi diện tích hình thang.