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.

19 tháng 1 2022

var i,n: integer;

       s:real;

begin

write(‘Nhập n: ‘); readln(n);

i:=1;

repeat 

s:=s+1/i;

i:=i+1;

until i=n;

write(‘s =‘, s:0:4);

readln

end.

 

      diepbichdiepbich  016/08/2021 at 03:53Reply

Program Hotboy ;

Uses crt; 

Var n,i,s : real;

Begin

Writeln(‘nhap n’);  readln(n);

Repeat 

S:=S+ 1/i;

I:=i+1 ; 

Until n=i; 

Writeln(‘S=’,S);

Readln

End.

19 tháng 1 2022

bạn tham khảo nha

30 tháng 3 2023

program SumOfNumbers;

uses crt;

var
  n, i, sum: integer;
  numbers: array[1..100] of integer;

begin
  clrscr;
  write('Enter n: ');
  readln(n);

  // Tạo mảng các số tự nhiên từ 1 đến n
  for i := 1 to n do
    numbers[i] := i;

  // Tính tổng các số tự nhiên từ 1 đến n
  sum := 0;
  for i := 1 to n do
    sum := sum + numbers[i];

  writeln('The sum of the first ', n, ' natural numbers is: ', sum);
  readln;
end.

1:

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

t:=t+i*i;

write(t);

readln;

end.

4 tháng 4 2023

2

program bt2;

var i,n,t:integer;

begin

readln(n);

s:=0;

for i:=1 to n do

if i mod 2 = 1 then s:=s+i;

readln;

end.

7 tháng 5 2023

Program HOC24;

var s: longint;

i,n: integer;

begin

write('Nhap n: '); readln(n);

s:=1;

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

write('S = ',s);

readln

end.

7 tháng 3 2022

Uses Crt; 

Var i,n:longint; S: real;

Begin

Clrscr;

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

Write(S);

Readln

End.

 

18 tháng 3 2023

 Var i,n:integer;

s:longint;

Begin

Write('n = ');readln(n);

For i:=1 to n do

s:=s+i;

Write('Tong la ',s);

Readln;

End.

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.

18 tháng 3 2023

Uses crt;

var n,i,s: integer;

begin clrscr;

readln(n);

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

writeln(s);

readln;

end.

Sửa đề: S=1/1+1/2+1/3+...+1/n

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

for i:=1 to n do 

  s:=s+1/i;

writeln(s:4:2);

readln;

end.

4 tháng 4 2023

program tong;

uses crt;

var n,i:integer;

t:longint;

begin

clrscr;

write('nhap n:'); readln(n);

t:=0;

for i:=1 to n do 

  t:=t+1/i;

writeln(t);

readln;

end.