Viết chương trình 3 số nguyên m, n, k. tính và đưa ra màn hình tổng số các số lẻ

0 bình luận về “Viết chương trình 3 số nguyên m, n, k. tính và đưa ra màn hình tổng số các số lẻ”

1. uses crt;
   var m,n,k,tong:longint;
   begin
      clrscr;
      write(‘Nhap 3 so m,n,k: ‘);readln(m,n,k);
      if m mod 2=1 then inc(tong,m);
      if n mod 2=1 then inc(tong,n);
      if k mod 2=1 then inc(tong,k);
      writeln(‘Tong: ‘,tong);
   readln
   end.

   Bình luận

2. Program NhatNgu;
   Uses crt;
   Var m,n,k,s: longint;
   Begin
           Clrscr;
           Write(‘Nhap m: ‘); Readln(m);
           Write(‘Nhap n: ‘); Readln(n);
           Write(‘Nhap k: ‘); Readln(k);

           s:=0;
           If m mod 2 = 1 then s:=s+m;
           If n mod 2 = 1 then s:=s+n;
           If k mod 2 = 1 then s:=s+k;

           Write(‘S = ‘,s);
           Readln
   End.

   Bình luận