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 bình phương các chữ số lẻ 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 bình phương các chữ số lẻ của số đó”

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

2. program bpsl;

   uses crt;

   var n,t,m:integer;

   begin

   clrscr;

   write(‘Nhap so can tinh: ‘);  readln(n);

   t:=0;

   m:=n;

   while m>0 do

    begin

     if m mod 2=1 then t:=t+(m mod 10)*(m mod 10);

     m:=m div 10;

    end;

   write(‘Tong binh phuong cac so le cua ‘,n,’ la: ‘t);

   readln

   end.

   Bình luận