Viết chương trình nhập 3 số nguyên và in ra số các số lẻ? Cần gấp a giúp em với
2 câu trả lời
uses crt;
var i:longint; a:array[1..4]of longint;
begin
clrscr;
write('a,b,c,d=');readln(a[1],a[2],a[3]);
for i:=1 to 3 do if a[i] mod 2<>0 then writeln(a[i]);
readln
end.
Program NhatNgu;
Uses crt;
Var a,b,c: longint;
Begin
Clrscr;
Write('Nhap a, b, c: '); Readln(a,b,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.
