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.

14 tháng 9 2025

=2

8 tháng 10 2025

gà thí

17 tháng 2 2019

a.

program caua;

uses crt;

var x,i, n: integer;

A: real;

begin

clrscr;

write('Nhap so n, n = '); read(n);

A:=0; x:=1;

for i:=1 to n do

begin

i:=x*i; A:=1/i;

end;

write("Gia tri bieu thuc dau tien la',A);

readln

end.

20 tháng 1 2018

uses crt;

var i,n:integer; S:real;

Begin

clrscr;

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

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

writeln('Tong la: ',S:3:1);

readln

End.

24 tháng 10 2025

???????luôn


18 tháng 10 2016

câu 1:

var x:string

     y:integer

Câu 2:

var a,b:integer

begin

write('hay nhap gia tri cua a')

read(a)

wrietln('hãy nhập giá trị b')

read(b)

t:=a+b

writeln('tông cua a va b la',t)

 

18 tháng 10 2016

? đây là toán mà

13 tháng 11 2019

câu 2 bạn xem lại đề nhé

câu 1:

bước 1: nhập n

bước 2: t:=0; i:=2;

bước 3: t:=t+1/i; i:=i+1;

bước 4: nếu i<=n thì quay lại bước 3

bước 5: xuất t

bước 6: kết thúc