Program HOC24;
var a: array[1..100] of integer;
d,i,n: integer;
begin
write('Nhap so phan tu cua day : '); readln(n);
d:=0;
for i:=1 to n do
begin
write('Nhap so thu ',i,':'); readln(a[i]);
if a[i] mod 3=0 then d:=d+1;
end;
writeln('Co ',d,' so chia het cho 3');
write('Cac so chia het cho 3 la : ');
for i:=1 to n do write(a[i],' ');
readln
end.
Nhập vào 100 số nguyên dương từ bàn phím in ra màn hình các số vừa nhập và đếm số lượng các số chẵn
Viết chương trình đọc từ bàn phím một loạt số nguyên cho đến khi nhập số 0.Hãy tính và in ra trung bình cộng của số chia hết cho 3 và 2(lấy 2 chữ số thập phân).
Viết chương trình nhập từ bàn phím số nguyên dương N
Đưa ra màn hình số lượng các số lẻ chia hết cho 5 trong phạm vi từ 1 đến N (ghi một cách rõ ràng nha )
Cho xâu S bất kì chứa các kí số và chữ cái tiếng Anh. Viết chương trình:
a. Đưa ra màn hình tất cả các chữ cái có trong S.
b. Đưa ra màn hình dãy số con tăng liên tiếp dài nhất có trong xâu S.
Ví dụ: S='ab3v5e72f4a7g91b2: có 3 dãy con tăng là (3,5,7); (2,4,7,9);(1,2). Dãy con tăng dài nhất là (2,4,7,9).
Mọi người giúp em với em cần gấp .Em cảm ơn ạ!
Viết chương trình nhập vào mảng a gồm n phần tử in ra màn hình phần tử thứ 3 của mảng
Viết chương trình nhập vào một mảng gồm n phần tử (n<=10). In mảng vừa nhập ra màn hình.
1: Viết chương trình tính tổng của các số chẵn từ 1 tới 100 tính tích của các số chia hết cho 3
2:V chương trình tính tổng của các số chẵn từ 1 tới 100 chia hết cho 3
Em cám ơn ạ !
