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.
program Tong;
var
n: integer;
i: integer;
sum: real;
begin
write('Nhap so nguyen duong n (chia het cho 5): ');
readln(n);
sum := 0;
for i := 1 to n do
begin
if i mod 5 = 1 then
sum := sum + 1/i;
end;
writeln('Tong A la: ', sum);
readln;
end.
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.
Phần a (1,5 đ)
| Bước 1: Nhập số nguyên dương N | 0,25 |
|---|---|
| Bước 2: S ←0; i ←1 | 0,25 |
| Bước 3: Nếu i> N thì đưa ra tổng S và kết thúc. Ngược lại sang bước 4 | 0,5 |
| Bước 4: S ←S+i | 0,25 |
| Bướ c 5: i ← i+1 quay lại bước 3 | 0,25 |
Phần b (1 đ)
| Bước 1: Nhập số nguyên dương N | 0,125 |
|---|---|
| Bước 2: S←0; i←1 | 0,125 |
| Bước 3: Nếu i> N thì đưa ra tổng S và kết thúc. Ngược lại sang bước 4 | 0,125 |
| Bước 4: S←S+i | 0,125 |
| Bướ c 5: i← i+2 quay lại bước 3 |
a = []
sum = 0
n = 5
# Nhập danh sách a
for i in range(n):
x = int(input("Nhập phần tử thứ " + str(i+1) + ": "))
a.append(x)
# Tính tổng các phần tử trong danh sách a
for i in range(n):
sum += a[i]
# In ra màn hình tổng các phần tử trong danh sách a
print("Tổng các phần tử trong danh sách a là: ", sum)
Em cần giúp với ngôn ngữ lập trình nào nhỉ?