K
Khách

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.

25 tháng 4 2023

n = int(input("Nhap vao mot so n: "))

tong = 0

for i in range(1, n):

      if i % 3 == 0:

            tong += i

print("Tong cac so chia het cho 3 tu 1 den", n-1, "la:", tong)

6 tháng 3 2023

n = int(input('Nhập số n: '))

sum = 0

i = 1

while i <= n:

      if i % 2 == 0:

            sum += i

            print(i, end=' ')

      i += 1

print()

print('Tổng các số chẵn từ 1 đến n là:', sum)

6 tháng 3 2023

n = int(input('Nhập số n: '))

sum = 0

i = 1

while i <= n:

      if i % 2 == 0:

            sum += i

            print(i, end=' ')

      i += 1

print()

print('Tổng các số chẵn từ 1 đến n là:', sum)

20 tháng 3 2023

tong = 0

for i in range(1, 101):

     if i % 3 == 0 and i % 5 == 0:

          tong += i

print("Tổng các số chia hết cho 3 và 5 trong phạm vi từ 1 đến 100 là", tong)

18 tháng 12 2022

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.

26 tháng 4 2023

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.

 

4 tháng 5 2023

var s:real;

i,n,t:integer;

begin

repeat

write('Nhap n > 0 va n chia het cho 5 ');readln(n);

until (n > 0) and (n mod 5 = 0);

t:=round(n/5);

s:=1;

for i:=1 to t do

s:=s+1/(5*i);

write('A = ',s:10:2);

readln

end.

 

31 tháng 12 2022

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.

14 tháng 3 2023

n = int(input())
s = 0
for i in range(1, n):
    if i % 2 == 0:
        print(i)
        s += i
print(s)

16 tháng 6 2021

Uses crt;

Var Tong, n, i: integer;

Begin

 Clrscr;

 Writeln(‘nhap n=’);

 Readln (n);

 Tong:=0;

 For i:=1 to n do

 If I mod 2 = 1 then Tong:= Tong+i;

 Writeln(‘Tong la:’,Tong);

 Readln

End.