var n:int64;
i:longint;
a:array[1..10000] of int64;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if a[i] mod 3 = 0 then writeln(a[i]);
readln;
end.
var n:int64;
i:longint;
a:array[1..10000] of int64;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if a[i] mod 3 = 0 then writeln(a[i]);
readln;
end.
Nhập vào một mảng gồm N số nguyên N<50(N được nhập vào từ bàn phím N<50)
Hãy đưa ra 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 ?
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)
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
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
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?
viết chương trình in ra màn hình số lớn trong 2 số x,y được nhập vào từ bàn phím
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