Question

1. viết chương trình tính diện tích hình thang với đáy nhỏ a , đáy lớn b, chiều cao h

2. viết chương trình tìm số lớn nhất trong 2 số a,b nhập vào từ bàn phím

3. viết chương trình kiểm tra số nguyên dương N nhập từ bàn phím là số chẵn hây lẻ

Answer 1

Program bai1;

uses crt;

var a,b,h: real;

begin

clrscr;

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

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

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

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

readln;

end.

Answer 2

program bai2;

uses crt;

var a,b: real;

begin

clrscr;

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

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

if a > b then writeln(a , ' la so lon nhat ') else

writeln(b , ' la so lon nhat ');

readln;

end.

Answer 3

program bai3;

uses crt;

var n: integer;

begin

clrscr;

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

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

else

writeln('la so le ');

readln;

end.