Nhập số tự nhiên bất kỳ có 3 chữ số từ bàn phím tính và đưa ra màn hình tổng các chữ số chẵn của số đó

0 bình luận về “Nhập số tự nhiên bất kỳ có 3 chữ số từ bàn phím tính và đưa ra màn hình tổng các chữ số chẵn của số đó”

1. program tinhtongcs;

   uses crt;

   var n,m:word;

          t:byte;

   begin

   clrscr;

   write(‘Nhap so can tinh: ‘);

   readln(n);

   t:=0;  m:=n;

   while m>0 do

     begin

       if m mod 2=0 then t:=t+m mod 10;

       m:=m div 10;

     end;

   write(‘Tong cac chu so chan cua ‘,n,’ la: ‘,t);

   readln

   end.

   Bình luận

2. PrograM TINH;

   use crts;

   Var n,S,k:integer;

   Begin

   clrscr;

   Writeln(‘nhap n’); readln(n);

   While n<>0 do 

   begin

   k:=n mod 10;

   n:=n div 10;

   if k mod 2=0 then S:=S+k*k;

   End;

   writeln(S);

   Readln;

   end.

   Nếu có gì ko hiểu thì hỏi nha!!!

   Bình luận