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

0 bình luận về “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”

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

   Bình luận

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

   Bình luận