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: 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.