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. var m,n,k:integer;

   begin

   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(‘tong la : ‘,s);

   readln;

   end.

   Bình luận