YOMEDIA
NONE

Nhập vào 1 dãy số nguyên gồm n phần tử sau đó in ra màn hình các số bình đẳng?

Nhập vào 1 dãy số nguyên gồm n phần tử sau đó in ra màn hình các số bình
đẳng?

 VD:

2016 là số bình đẳng vì 2016 chia hết cho 9=2+0+1+6

2018 không là số bình đẳng vì 2018 không chia hết cho 11=2+0+1+8

Theo dõi Vi phạm
ATNETWORK

Trả lời (1)

  • Uses crt;
    Var s,kq:string;
        tong,n,c,m,i,k,j:integer;
        a:array[1..100]of integer;

    Begin
      Clrscr;
      Write('Nhap so luong: ');Readln(k);
      For i:=1 to k do
        Begin
          Write('A[',i,']=');readln(a[i]);
        end;
      For i:=1 to k do
        Begin
          str(a[i],s);
          tong:=0;
          For j:=1 to length(s) do
               Begin
               val(s[j],n,c);
               tong:=tong+n;       // tìm tổng các chữ số của số vừa nhập (2+0+1+6=9)//
               n:=0;
               end;
          val(s,m,c);
          If m mod tong=0 then kq:=kq+s+' ';
        end;
      Writeln('Ket qua: ',kq);
      Readln;
    End.

    Bài làm của mk mà có lỗi hay bạn thắc mắc gì thì nhắn cho mk nhé

      bởi Nguyễn Unzil 18/08/2019
    Like (0) Báo cáo sai phạm

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
NONE

Các câu hỏi mới

AANETWORK
 

 

YOMEDIA
ATNETWORK
ON