Question

viết chương trình nhập chiều cao 3 bạn trong lớp tìm và hiển thị ra màn hình bạn có chiều cao thấp nhất ( pascal)

Answer 1

uses crt;

var a,b,c:real;

begin

clrscr;

write('nhap chieu cao cua ban thu 1:'); readln(a);

write('nhap chieu cao cua ban thu 2:'); readln(b);

write('nhap chieu cao cua ban thu 3:'); readln(c);

nn:=a;

if nn>b then nn:=b;

if nn>c then nn:=c;

writeln('ban co chieu cao thap nhat la: ',nn);

readln;

end.

Answer 2

program chieu_cao;

uses crt;

var a,b,c:integer;

begin

clrscr;

write('nhap bn thu nhat');readln(a);

write('nhap bn thu hai:');readln(b);

write('nhap bn thu ba:');readln(c);

if (a<b) and (a<c) then writeln('bn thu nhat thap nhat')

if (b<c) and (b<a) then writeln('bn thu hai thap nhat')

else writeln('bn thu ba thap nhat');

readln

end.

OK

Answer 3

uses crt;

var a,b,c:integer;

begin

clrscr;

write('nhap bn thu nhat');readln(a);

write('nhap bn thu hai:');readln(b);

write('nhap bn thu ba:');readln(c);

if (a<b) and (a<c) then writeln('bn thu nhat thap nhat')

if (b<c) and (b<a) then writeln('bn thu hai thap nhat')

else writeln('bn thu ba thap nhat');

readln

end.