YOMEDIA
NONE

Nhập vào 1 dãy số nguyên gồm N số nguyên a1, a2....aN (giả sử N

Câu 1: Nhập vào 1 dãy số nguyên gồm N số nguyên a1, a2....aN (giả sử N<=100). Hãy đếm xem trong dãy số nguyên đó có bao nhiêu số chẵn, sau đó tính tổng các số chẵn đó
Câu 2: Nhập vào 1 xâu kí tự, kiểm tra xem xâu đó có phải là xâu đối xứng (palindrome) hay không, sao đó đếm xem trong xâu đó có bao nhiêu kí tự không phải là số?
Bạn nào giúp mình với

Theo dõi Vi phạm
ADSENSE

Trả lời (1)

  • Thu Thu

    Bai 1:} 
    program cap_so_cong; 
    uses crt; 
    var a: array[1..100] of integer; 
    i, n, k: integer; {i la bien dem, k de luu cap so} 
    begin 
    clrscr; 
    write('N= '); readln(n); 
    for i:=1 to n do 
    begin 
    write('A(',i,')= '); readln(a[i]); 
    end; 
    {Bat dau phan kiem tra} 
    k:=a[2]-a[1]; 
    i:=2; 
    repeat 
    i:= i+1; 
    until (a[i]<>a[i-1]+k) or (i>n); 
    if i>n then write('Day A la mot cap so cong') 
    else write('Day A khong phai la mot cap so cong'); 
    readln 
    end. 

      bởi Thu Thu 08/04/2019
    Like (3) Báo cáo sai phạm
Cách tích điểm HP

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
 

XEM NHANH CHƯƠNG TRÌNH LỚP 11

 

YOMEDIA
AANETWORK
OFF