Dạ cho em hỏi, các bài sau đây làm như thế nào ạ?
1. Viết chương trình nhập vào giá trị hai số nguyên a, b. Hãy thực hiện: tính tổng (a+b), tích(a*b), thương (a/b) của hai số đó.
2. Viết chương trình nhập vào giá trị hai số nguyên x, y. Hãy hoán đổi hai số đó rồi in kết quả ra màn hình.
3. Viết chương trình nhập vào số có ba chữ số. Hãy in ra chữ số hàng trăm, chục, đơn vị của số đó.
4. Viết chương trình nhập vào giá trị của số N nguyên. Hãy kiểm tra giá trị N vừa nhập là số chẵn hay lẻ?
5. Viết chương trình nhập vào giá trị hai số nguyên a, b. Hãy cho biết kết quả so sánh hai số đó dưới dạng: "a lon hon b", "a nho hon b", "a bang b".
Em cảm ơn trước ạ!
1:
uses crt;
var a,b,t,s:integer;
thuong:real;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
t:=a+b;
s:=a*b;
thuong:=a/b;
writeln('tong cua hai so ',a,' va ',b,' la: ',t);
writeln('tich cua hai so ',a,' va ',b,' la: ',s);
writeln('thuong cua hai so ',a,' va ',b,' la: ',thuong:4:2);
readln;
end.
2:
uses crt;
var x,y,tam:integer;
begin
clrscr;
write('x='); readln(x);
write('y='); readln(y);
tam:=x;
x:=y;
y:=tam;
writeln('gia tri cua x sau khi doi la: ',x);
writeln('gia tri cua y sau khi doi la: ',y);
readln;
end.
3:
uses crt;
var a,dv,ch,tr,x:integer;
begin
clrscr;
write('nhap a='); readln(a);
x:=a;
dv:=a mod 10;
ch:=a div 10; ch:=ch mod 10;
tr:=a div 100; tr:=tr mod 10;
writeln('chu so hang don vi cua ',x,' la: ',dv);
writeln('chu so hang chuc cua ',x,' la: ',ch);
writeln('chu so hang tram cua ',x,' la: ',tr);
readln;
end.
4:
uses crt;
var n:integer;
begin
clrscr;
write('n='); readln(n);
if n mod 2=0 then writeln(n,' la so chan')
else writeln(n,' la so le');
readln;
end.
5:
uses crt;
var a,b:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a>b then writeln('a lon hon b')
else if a<b then writeln('a nho hon b')
else writeln('a bang b');
readln;
end.
1:
uses crt;
var a,b,t,s:integer;
thuong:real;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
t:=a+b;
s:=a*b;
thuong:=a/b;
writeln('tong cua hai so ',a,' va ',b,' la: ',t);
writeln('tich cua hai so ',a,' va ',b,' la: ',s);
writeln('thuong cua hai so ',a,' va ',b,' la: ',thuong:4:2);
readln;
end.
2:
uses crt;
var x,y,tam:integer;
begin
clrscr;
write('x='); readln(x);
write('y='); readln(y);
tam:=x;
x:=y;
y:=tam;
writeln('gia tri cua x sau khi doi la: ',x);
writeln('gia tri cua y sau khi doi la: ',y);
readln;
end.
3:
uses crt;
var a,dv,ch,tr,x:integer;
begin
clrscr;
write('nhap a='); readln(a);
x:=a;
dv:=a mod 10;
ch:=a div 10; ch:=ch mod 10;
tr:=a div 100; tr:=tr mod 10;
writeln('chu so hang don vi cua ',x,' la: ',dv);
writeln('chu so hang chuc cua ',x,' la: ',ch);
writeln('chu so hang tram cua ',x,' la: ',tr);
readln;
end.
4:
uses crt;
var n:integer;
begin
clrscr;
write('n='); readln(n);
if n mod 2=0 then writeln(n,' la so chan')
else writeln(n,' la so le');
readln;
end.
5:
uses crt;
var a,b:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a>b then writeln('a lon hon b')
else if a<b then writeln('a nho hon b')
else writeln('a bang b');
readln;
end.
