Program hotrotinhoc_hoc24;
var a: array[1..50] of integer;
i,n: byte;
begin
write('Nhap so nguyen N : '); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
write('Cac phan tu chia het cho 3 la : ');
for i:=1 to n do if a[i] mod 3=0 then write(a[i],' ');
readln
end.
Nhập vào một mảng gồm N số nghuyên ( N được nhập vào từ bàn phím N<50)
Hãy in những phần tử chia hết cho 3
Viết chương trình nhập vào 1 mảng số nguyên có 15 phần tử. In ra màn hình những số chia hết cho 5 và tổng của chúng ?
Hãy dùng phương pháp liệt kê để thể hiện thuật toán của bài toán sau:
Cho một dãy a gồm n số nguyên a1,a2,..an được nhập từ bàn phím (n<=100) có giá trị tuyệt đối không lớn hơn 1000. Hãy cho biết a có phải là một cấp số cộng không?
Giải giúp mình 4 câu này vs mai mình thi rồi
1. Viết chương trình mảng số nguyên nhập n phần tử và in ra tổng các giá trị màn hình phần tử là số chẵn
2. Viết c/t mảng số nguyên nhập n phần tử và in ra tổng các giá trị màn hình phần tử là số lẻ
3. Viết c/t số nguyên nhập n phần tử và in ra tổng các gia trị màn hình phần tử là số dương
4. Viết c/t số nguyên nhập n phần tử và in ra tổng các gia trị màn hình phần tử là số vừa chia hết cho 2 và cho 3
Câu 1: Viết chương trình nhập vào từ bàn phím số tự nhiên n và in ra màn hình số đã nhập chẵn hay lẻ( vd 3 là số lẻ, 4 là số chẵn)
Viết chương trình tính tổng các số chẵn dãy n số nguyên với n được nhập từ bàn phím
Viết chương trình tìm các số nguyên tố từ 1 đến N trong đó N được nhập từ bàn phím?
nhập vào 1 số từ bàn phím kiểm tra số đó có chia hết cho 3 và 4 hay không nêu thuật toán
