Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
NGUYỄN LÊ XUÂN THỊNH
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 2 2023 lúc 0:38

Câu 6:

uses crt;

var n,i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

if n mod i=0 then write(i:4);

readln;

end.

5:

uses crt;

var n,i,dem:integer;

begin

clrscr;

readln(n);

dem:=0;

for i:=0 to n do

if i mod 2=1 then 

begin

write(i:4);

dem:=dem+1;

end;

writeln;

writeln(dem);

readln;

end.

MinTae
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 2 2022 lúc 21:37

uses crt;

var s:real;

i,n:integer;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do 

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

writeln(s:4:2);

readln;

end.

Kim Anh
Xem chi tiết
Kim Anh
21 tháng 2 2022 lúc 14:35

Cái này là chương trình Python nha mọi người

Ngoc Anh Nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
27 tháng 2 2022 lúc 21:48

a: uses crt;

var s,i,n:integer;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do s:=s+i;

writeln(s);

readln;

end.

b: 

uses crt;

var s:real;

i,n:integer;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do 

  s:=s+1/i;

writeln(s:4:2);

readln;

end.

c: 

uses crt;

var s:real;

i,n:integer;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do 

  s:=s+1/i;

writeln(s+1/(n+1):4:2);

readln;

end.

Nguyễn Tiến Đạt 8/1
Xem chi tiết
ILoveMath
7 tháng 3 2022 lúc 20:48

Uses Crt; 

Var i,n:longint; S: real;

Begin

Clrscr;

For i:=1 to n do S:=S+1/n;

Write(S);

Readln

End.

 

Bảo Châu
Xem chi tiết
Bùi Anh Tuấn
4 tháng 5 2021 lúc 20:07

bài 1

Bùi Anh Tuấn
4 tháng 5 2021 lúc 20:12

Bùi Anh Tuấn
4 tháng 5 2021 lúc 20:23

BÀI 3

uses crt;
var a: array[1..100] of integer;
i,n,max,s,j: integer;
begin
clrscr;
writeln(' nhap so phan tu cua day'); readln(n);
for i:=1 to n do
begin
writeln('a[',i,']'); readln(a[i]);
end;
max:=a[1];
s:=0;
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
s:=s+a[i];
end;
writeln('so lon nhat trong day tren la:',max);
writeln('tong bang:',s);
writeln('so nguyen to trong mang la:');
j:=1;
for i:=1 to n do
if a[i]>1 then
begin
repeat
inc(j);
until (a[i] mod j=0);
if j>(a[i] div 2) then writeln(a[i]);
j:=1;
end;
readln
end.

 

Phan Huy
Xem chi tiết
Nguyễn văn Mạnh
Xem chi tiết
Vương Hương Giang
12 tháng 1 2022 lúc 11:20

a, 

var n, i: integer; S: real;

begin

 read(n);

 while i <= n do

  begin 

   S:=S+i*(i+1);

   i:=i+1;

  end;

 write(S);

end.

b, 

var n,i: integer; S: real;

begin 

 read(n);

 while i <= n do

  begin

    S:=S+2*i;

    i:=i+1;

  end;

 write(S);

end.

c, 

var n,i: integer; S: real;

begin

 read(n);

 while i <=n do

  begin

    S:=S+(2*i+1);

    i:=i+1;

  end;

 write(S);

end.

T CHỊU 

Nguyễn Cao Kỳ Uyên
Xem chi tiết
Phía sau một cô gái
8 tháng 3 2023 lúc 22:49

Câu a:

n = int(input("Nhập số nguyên n: "))

S = 0

for i in range(1, n+1):

     S += i

print("Tổng S =", S)

Câu b:

n = int(input("Nhập số nguyên n: "))

S = 0

for i in range(1, n, 2):

     S += i

print("Tổng S =", S)

Câu c: 

def calc_sum(n):

     s=0

     for i in range(1,n+1):

          s += 2*i

     return s

n = int(input("Nhập vào số n: "))

print("Tổng S=2+4+6+...2n là:",calc_sum(n))

 

NGUYỄN CHÍ tiến
9 tháng 3 2023 lúc 21:16

n = int(input("Nhập số nguyên n: "))

S = 0

for i in range(1, n+1):

     S += i

print("Tổng S =", S)

Câu b:

n = int(input("Nhập số nguyên n: "))

S = 0

for i in range(1, n, 2):

     S += i

print("Tổng S =", S)

Câu c: 

def calc_sum(n):

     s=0

     for i in range(1,n+1):

          s += 2*i

     return s

n = int(input("Nhập vào số n: "))

print("Tổng S=2+4+6+...2n là:",calc_sum(n))