Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Cau 1:
var i,dem:integer;
function ngto(n:longint):boolean;
var bo:boolean;
i:longint;
begin
bo:=true;
for i:=2 to n-1 do
if n mod i=0 then bo:=false;
if n>1 then ngto:=bo else ngto:=false;
end;
begin
for i:=2 to 100 do
if ngto(i) then dem:=dem+i;
write(dem);
readln;
end.
Cau 2:
var i,dem,n:longint;
begin
read(n);
dem:=1;
for i:=1 to n do
dem:=dem*i;
write(dem);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%2!=0) t+=x;
}
cout<<t;
return 0;
}
# Yêu cầu người dùng nhập 20 số nguyên không âm
numbers = []
for i in range(20):
number = int(input("Nhập số nguyên không âm thứ {}: ".format(i+1)))
numbers.append(number)
# Tính tổng các phần tử là số chẵn ở vị trí lẻ
total = 0
for i in range(1, 20, 2):
if numbers[i] % 2 == 0:
total += numbers[i]
# Hiển thị kết quả
print("Tổng các phần tử là số chẵn ở vị trí lẻ là:", total)
Program HOC24;
var a: array[1..1000] of integer;
i,n : integer;
t: longint;
begin
write('Nhap N: '); realdn(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do if a[i] mod 3 = 0 then t:=t+a[i];
write('Tong cac so la boi cua 3 trong danh sach la: ',t);
readln
end.
Program HOC24;
var i,n: integer;
t: longint;
a: array[1..1000] of integer;
begin
write('Nhap n '); readln(n);
for i:=1 to n do
begin
write('a[',i,']= '); readln(a[i]);
end;
t:=0;
for i:=1 to n do t:=t+a[i];
write('Ket qua la: ',t);
readln
end.