Question

1. nhập 2 số a và b. In ra số bé hơn
2. nhập vào 2 số a và b. in ra 2 số sắp xếp giảm dần
3. nhập 3 số a, b, c. in ra số lớn nhất
4. nhập 1 số nguyên X. kiểm tra xem X là số chẵn hay số lẻ.
5. nhập 1 số nguyên X. kiểm tra xem X là số âm hay số duơng.

Giúp mình với huhu mai mình thi rồi

Answer 1

giúp mình với ạ

Answer 2

1.

use crt;
Var a, b: real;
Begin
write('Nhap so a: '); readln(a);
write('Nhap so b: '); readln(b);
if a<b then write('so a nho hon') else write('so b nho hon');
readln;
end.

2. a và b có khác nhau?

uses crt;

var a,b: integer;

begin

clrscr;

readln(a);

readln(b);

if a>b then writeln(a,' ',b)

else writeln(b,' ',a);

readln;

end.

(không đầy đủ lắm đâu)

3.

var a,b,c,max : integer;


Begin

writeln('Tim MAX cua 3 so a,b,c');

write('Nhap so a :');readln(a);
write('Nhap so b :');readln(b);
write('Nhap so c :');readln(c);

max:= a;

if max < b then max := b;
if max < c then max := c;

writeln( 'So Max trong 3 so la : ', max );

readln;

end.

4.

uses crt;

var n:integer;
begin
wirite ( 'nhap gia tri cua x: ' );
readln (n);
if x mod 2 = 0 then write ( 'x la so chan' )
else wirite ( 'x la so le' );
end.

5.

uses crt;
var n:intger;
begin
clrscr;
writeln('nhap vao so nguyen duong:');
readln(n);
if n >= 0 then
writeln('so ',n,' la so duong')
else
writeln('so ',n,' la so am');
if (n mod 2 = 0) then
writeln('so ',n,' la so chan')
else
writeln('so ',n,' la so le.');
readln;
end.

(Công sức đấy! Chúc bạn học tốt!)