m

program Chieu_cao;

uses crt;

var Long, Trang : integer;

begin

writeln('Nhap chieu cao cua Long (Duoi dang cm)');

readln(Long);

writeln('Nhap chieu cao cua Trang (Duoi dang cm)');

readln(Trang);

if Long > Trang then writeln('Long cao hon Trang')

else writeln('Trang cao hon Long);

end.

#AeMZn

program Chieu_cao;

uses crt;

var Long, Trang : integer;

begin

writeln('Nhap chieu cao cua Long (Duoi dang cm)');

readln(Long);

writeln('Nhap chieu cao cua Trang (Duoi dang cm)');

readln(Trang);

Câu 1: 

program chieu_cao;

uses crt;

var Nam, Linh: real;

begin

clrscr;

write ('Nhap chieu cao cua Nam:'); readln (Nam);

write ('Nhap chieu cao cua Linh:'); readln (Trang);

if Nam > Linh then writeln ('Ban Nam cao hon');

if Nam < Linh then writeln ('Ban Linh cao hon') else writeln ('Hai ban cao bang nhau');

readln

end.

Câu 2: 

program Tich;

var N,i: interger;

      P: longint;

begin

write ('N='); readln (N);

P:=1;

for i:=1 to N do P:=P*i;

writeln (N,' ! = ',P);

readln

end.

Câu 3: 

uses crt;

var n,i,s:longint;

begin

clrscr;

readln(n);

for i:=1 to 10 do 

  writeln(n,'*',i,'=',n*i);

readln;

end.

var a,b,c,h:integer;

begin

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

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

write('c=');readln(c);

h:=a;

if b>h then h:=b;

if c>h then h:=c;

if (a=c) and (a=b) then writeln(' Chieu cao 3 ban bang nhau va khong co nguoi cao nhat ')

else writeln(' Ban cao nhat la : ',h);

readln;

end.

1)var a,b,c:real;

begin

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

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

write('c=');readln(c);

if (a+b>c) or (a+c>b) or (b+c>a) then writeln(' la 3 canh cua tam giac ')

else writeln(' khong phai la 3 canh cua tam giac ');

readln;

end.

2) var a,b:integer;

begin

write(' Chieu cao ban A: ');readln(a);

write(' Chieu cao ban B: ');readln(b);

if a=b then writeln(' Chieu cao 2 ban bang nhau ');

if a>b then writeln(' Ban A cao hon ban B')

else writeln(' Ban B cao hon ban A ');

readln;

end.

Giả sử hai số đều đúng ta có : \(18q+6=42b+5\)

\(\Leftrightarrow42b-18q=1\)

\(\Leftrightarrow6\left(7b-3q\right)=1\Rightarrow7b-3q=\frac{1}{6}\)

Do q, b đều là các số tự nhiên nên không xảy ra trường hợp 7b - 3q là phân số.

Vậy giả sử vô lý hay một trong hai bạn phải viết sai.

a = [ ]

n = int(input('Nhập số lượng học sinh: '))

# Nhập thông tin học sinh

for i in range(n):

     name = input('Tên học sinh: ')

     height = float(input('Chiều cao: '))

     a.append([name, height])

# Tìm học sinh có chiều cao lớn nhất và bé nhất

max_height = 0

min_height = float('inf')

max_name = ''

min_name = ''

for i in range(n):

     if a[i][1] > max_height:

          max_height = a[i][1]

          max_name = a[i][0]

     if a[i][1] < min_height:

          min_height = a[i][1]

          min_name = a[i][0]

# In ra bạn có chiều cao lớn nhất, bé nhất

print('Học sinh có chiều cao lớn nhất là:', max_name, 'với chiều cao', max_height, 'm')

print('Học sinh có chiều cao bé nhất là:', min_name, 'với chiều cao', min_height, 'm')

như cục ....