Bài 1: Viết chương trình nhập điểm của 2 bạn Khánh và Minh và in ra màn hình kết quả so sánh điểm của hai bạn, chẳng hạn bạn Khánh điểm cao hơn thì in ra màn hình “Ban Khanh cao hon”.

2 câu trả lời

program bai_giai;

uses crt;

var khanh,minh:real;

begin

clrscr;

write('nhap diem ban Khanh:');readln(khanh);

write('nhap diem ban Minh:');readln(minh);

if(khanh>minh)then write('ban Khanh cao hon');

if(khanh=minh)then write('2 ban bang nhau');

readln

end.

program bai_Giai;

uses crt;

var minh, khanh:longint;

begin

clrscr;

write('nhap chieu cao ban khanh');readln(khanh);

write('nhap chieu cao ban Minh');readln(minh);

if(khanh>minh)then write('ban Minh cao hon')else write('ban Khanh cao hon');

if(khanh=minh)then write('hai ban bang');

readln

end.