1 viết chương trình tìm tất cả các số có 3 chữ số mà tính các chữ số = tổng các chữ số 2 viết chương trình đếm số chữ số của số N 3 viết phương trình

0 bình luận về “1 viết chương trình tìm tất cả các số có 3 chữ số mà tính các chữ số = tổng các chữ số 2 viết chương trình đếm số chữ số của số N 3 viết phương trình”

1. Bai1:

   Program NN;
   Uses crt;
   Var a,b,c,i,k: longint;
   Begin
           Clrscr;
           For i:=100 to 999 do
           Begin
                   k:=i;
                   a:=k div 100;
                   k:=k mod 100;
                   b:=k div 10;
                   k:=k mod 10;
                   c:=k;
                   If a*b*c=a+b+c then Writeln(a,b,c);
           End;
           Readln
   End.

   Bai2:

   Program NN;
   Uses crt;
   Var St: String;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(St);
           Write(length(St));
           Readln
   End.

   Bai3:

   Program NN;
   Uses crt;
   Var n,s: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           While n<>0 do
           Begin
                   s:=s+n mod 10;
                   n:=n div 10;
           End;
           Write(‘S = ‘,s);
           Readln
   End.

   Bình luận