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.

28 tháng 4 2023

Uses crt;

var i,t: integer;

begin clrscr;

i:=0;

while(i<=120) do begin

i:=i+1;

t:=t+i;

end;

write(t);

readln;

end.

b) 

uses crt;

var i,n:integer;

t:real;

begin

clrscr;

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

i:=1;

t:=0;

while i<=n do 

  begin

t:=t+1/(i*(i+3));

i:=i+1;

end;

writeln(t:4:2);

readln;

end.

6 tháng 3 2023

Program HOC24;

uses crt;

var i,n: integer;

s: real;

begin

clrscr;

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

s:=0;

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

write('S= ',s:6:2);

readln

end.

7 tháng 3 2023

Còn lệnh while...do mình làm như thế nào ạ?

16 tháng 3 2023

Tính tổng N số tự nhiên đầu tiên với N nhập từ bàn phím chứ bạn nhỉ?

19 tháng 3 2023

cô cho đề như thế, mà mình bt làm r

 

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;

i:=1;

while i<=n do 

  begin

s:=s+i;

inc(i);

end;

writeln(s);

readln;

end.

ae nào giúp mình với ạ'