Câu 1: viết chương trình nhập 3 số nguyên và in ra số các số lẻ. Câu 2: viết chương trình trả về giá trị nhỏ nhất của 4 số nguyên. Giúp e với em đang cần gấp a c ơn.

Câu 1:

Program NhatNgu;
Uses crt;
Var a,b,c: longint;
Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        Write('Nhap b: '); Readln(b);
        Write('Nhap c: '); Readln(c);

        If a mod 2 = 1 then Write(a,' ');
        If b mod 2 = 1 then Write(b,' ');
        If c mod 2 = 1 then Write(c,' ');
        Readln
End.

Câu 2: 

Program NhatNgu;
Uses crt;
Var a,b,c,d,max: longint;
Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        Write('Nhap b: '); Readln(b);
        Write('Nhap c: '); Readln(c);
        Write('Nhap d: '); Readln(d);

        max:=a;
        If b>max then max:=b;
        If c>max then max:=c;
        If d>max then max:=d;
        Write('Max = ', max);
        Readln
End.

Câu 1 :

uses crt;

var a, b, c : integer;

begin

clrscr;

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

if a mod 2 <> 0 then write(a : 3);

if b mod 2 <> 0 then write(b : 3);

if c mod 2 <> 0 then write(c : 3);

readln

end.

Câu 2 :

uses crt;

var a, b, c , d, min : integer;

begin

clrscr;

write('Nhap 4 so nguyen : '); readln(a, b, c, d);

min := d;

if c < min then min := c;

if b < min then min := b;

if a < min then min := a;

write('So nho nhat = ', min);

readln

end.