![](https://rs.olm.vn/images/avt/0.png?1311)
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
![](https://rs.olm.vn/images/avt/0.png?1311)
![](https://rs.olm.vn/images/avt/0.png?1311)
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);
![](https://rs.olm.vn/images/avt/0.png?1311)
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.
![](https://rs.olm.vn/images/avt/0.png?1311)
program SoSanhDiem;
var
DiemManh, DiemThanh: real;
begin
write('Nhap diem cua ban Manh: ');
readln(DiemManh);
write('Nhap diem cua ban Thanh: ');
readln(DiemThanh);
if DiemManh > DiemThanh then
writeln('Ban Manh dat diem cao hon ban Thanh.')
else if DiemManh < DiemThanh then
writeln('Ban Thanh dat diem cao hon ban Manh.')
else
writeln('Hai ban dat diem bang nhau.');
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
#include <bits/stdc++.h>
using namespace std;
int a;
int main()
{
cin>>a;
if (a>10) cout<<"ban nhap so lon hon 10";
else cout<<"ban nhap so nho hon 10";
return 0;
}
![](https://rs.olm.vn/images/avt/0.png?1311)
var a,b,C : integer ;
begin
wirte('nhap so hoc sinh nam'); readln(a);
wirte('nhap so hoc sinh nu'); readln(b);
If a>b then writeln('nam nhieu hon nu') else writeln('nu nhieu hon nam');
begin
C:=a-b;
C:=b-a
end;
write('hon nhau so ban la',C);
readln
end.
program bai1;
var x,y:longint;
begin
write('So hs nam: ');readln(x);
write('So hs nu: ');realn(y);
if x<y then write('Nam it hon nu (it hon ',y-x,' hs')
else if x>y then write('Nam nhieu hon nu (nhieu hon ',x-y,' hs')
else if x=y then write('Nam=nu ');
readln
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
#include <bits/stdc++.h>
using namespace std;
int n,k,a,b;
int main()
{
cin>>n>>k;
a=(n+k)/2;
b=(n-k)/2;
cout<<"So hoc sinh nam la: "<<a;
cout<<"\nSo hoc sinh nu la: "<<b;
Return 0;
}
![](https://rs.olm.vn/images/avt/0.png?1311)
Program HOC24;
var a,b: real;
begin
write('Nhap diem cua Manh: '); readln(a);
write('Nhap diem cua Thanh: '); readln(b);
if a>b then write('Diem cua ban Manh cao hon ban Thanh');
if a<b then write('Diem cua ban Thanh cao hon ban Manh');
if a=b then write('Diem cua ban Manh bang ban Thanh');
readln
end.