Câu 1:Nhập số nguyên a,b in ra màn hình xem số nào lớn hơn
Câu 2: Nhập vào cân nặng của An và Minh in ra màn hình thông báo xem ai nặng hơn
Câu 1:Nhập số nguyên a,b in ra màn hình xem số nào lớn hơn Câu 2: Nhập vào cân nặng của An và Minh in ra màn hình thông báo xem ai nặng hơn
By Kylie
B1:
program bai1;
var
a,b:integer;
begin
write(‘Nhap hai so: ‘);readln(a,b);
if a>b then write(a,’ lon hon ‘,b) else write(b,’ lon hon ‘,a);
readln;
end.
B2:
program bai2;
var
a,m:real;
begin
write(‘Nhap can nang cua An: ‘);readln(a);
write(‘Nhap can nang cua Minh: ‘);readln(m);
if a>m then write(‘An nang hon Minh’) else write(‘Minh nang hon An’);
readln;
end.
Câu 1:
uses crt;
var a,b:integer;
begin
clrscr;
write(‘Nhap a= ‘);readln(a);
write(‘Nhap b= ‘);readln(b);
if a>b then writeln(‘a lon hon b’) else writeln(‘b lon hon a’);
readln;
end.
Câu 2:
uses crt;
var An,Minh:real;
begin
clrscr;
write(‘Nhap can nang cua An= ‘),readln(An);
write(‘Nhap can bang cua Minh= ‘);readln(Minh);
if An>Minh then writeln(‘An nang hon Minh’)
else writeln(‘Minh nang hon An’);
readln;
end.