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.
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n-1 do
if i mod 2=0 then
begin
write(i:4);
t:=t+i;
end;
writeln;
writeln(t);
readln;
end.
n = int(input())
s = 0
for i in range(1, n):
if i % 2 == 0:
print(i)
s += i
print(s)
def is_coprime(a, b):
"""Hàm ktra a và b có phải là nguyên tố cùng nhau"""
while b:
a, b = b, a % b
return a == 1
n = int(input("Nhập stn n: "))
count = 0
for i in range(1, n+1):
if is_coprime(i, n):
count += 1
print(f"Số lượng số nguyên tố cùng nhau với n là {count}.")
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 |
Program HOC24;
var i,t,k,n: integer;
begin
write('Nhap N: '); readln(n);
t:=0; k=0;
while k=0 do
begin
n:=n+1;
for i:=1 to n do if n mod i=0 then t:=t+i;
if t=n then
begin
write(n);
k:=k+1
end else t:=0;
end;
readln
end.
Bài 1:
uses crt;
var n,t1,t2,t3,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t1:=0;
t2:=0;
for i:=1 to n-1 do
begin
if i mod 2=1 then t1:=t1+i
else t2:=t2+i;
end;
writeln('Tong cac so le nho hon ',n,' la: ',t1);
writeln('Tong cac so chan nho hon ',n,' la: ',t2);
t3:=0;
for i:=1 to 2*n do
t3:=t3+i;
writeln('Tong cac so trong day so tu 1 toi 2*',n,' la: ',t3);
readln;
end.