uses crt;
var a:array[1..100]of integer;
n,i,dem:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-------------------------------xu-ly-----------------------------}
dem:=0;
for i:=1 to n do
if (a[i]>0) and (a[i] mod 3=0) then inc(dem);
writeln('so phan tu chia het cho 3 trong day so la: ',dem);
readln;
end.
Viết chương trình nhập vào xâu S.a, Xoá hết kí tự là chữ trong xâu.b, đếm xem xâu có bao nhiêu nguyên âm. c, đếm số lần xuất hiện của kí tự k đc nhập bào từ bàn phím
chào tất cả anh chỉ rút em gải bài nài với ạ: viết chương trình đến các số chia hết cho 2 hoặc chia hết cho 5 trong dãy a gồm n số nguyên dương (n nhỏ hơn hoặc bằng 100)
1.Cho 1 xâu kí tự tính xem trong số đó có bao nhiêu loại kí tự khác nhau (không phân biệt in hoa hay in thường)
2.Viết chương trình nhập 1 mảng n số nguyên. Đếm số phần tử nhỏ hơn 0, đếm số phần tử lớn hơn 0
3.Nhập xâu gồm tất cả chữ và số xuất ra màn hình các số riêng và chữa riêng. Hãy đếm số lần xuất hiện của mỗi chữ mỗi số
"giải giúp e vs 19h 22/7 e nộp r"
Bài 1: Viết chương trình Nhập vào một dãy số gồm n phần tử, đếm và in ra kết quả trong dãy có bao nhiêu số chẵn. Bài 2: Viết chương trình nhập vào một xâu ký tự in ra màn hình độ dài của xâu.
viết chương trình nhập vào các số nguyên dương N,dãy a1,a2 ,...an đưa ra số lượng số lẻ và số chẵn có trong dãy
Viết chương trình nhập từ bàn phím số nguyên dương N,N <=100 và dãy A gồm N số nguyên A1,A2,...An. xuất ra màng hình tổng các số nguyên trong dãy A theo yêu cầu sau
1 : viết các thủ tục nhập / xuất mảng A
2 : Viết các hàm tính tổng các số nguyên tromg dãu A, tổng số chẵn, tổng số lẻ trong dãy A
xấc định bài toán nêu ý nghĩa thuật toán và viết phương trinhhf bằng ngôn ngữ lập trình paccanl để giải bài toán sau
viết phương trình nhập từ bàn phím 4 số nguyên dương a,b,c,d, ttinhs tổng các số chia hết cho 10 (4 số a,b,c,d, kiểm tra số nào chia hết cho 10 thì cộng lại với nhau)
Viết chương trình nhập vào 1 xâu kí tự và đếm trong xâu có bao nhiêu từ ' tiền'
