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.
var i,n,tb :integer;
begin
readln(n);
tb:=0;
for i:=1 to n do tb:=tb+1;
writeln(tb);
end.
program CTTTB;
uses crt;
var TB,x:real; n,y: integer;
begin
Write('Hay nhap so so thuc ban can tinh TB'); Readln(n);
for y:=1 to n do
begin Write('Nhap so thu',y);Readln(x);
TB:=TB+x;
end;
TB:=TB/n;
Writeln('Trung binh cong cua',n,' so nhap vao tu ban phim la',TB);
Readln;
End.
Program Search_Min;
Uses Crt;
Var i, N, Min: Integer;
A: array[1..100] of Integer;
Begin
Clrscr;
Write('Nhap do dai cua day so,N='); Readln(N);
Writeln('Nhap cac phan tu cua day so:');
For i:=1 to N do
Begin
Write('a[',i,']='); Readln(a[i]);
End;
Min:=a[1];
For i:=2 to N do
begin if Min>a[i] then Min:=a[i];
end;
Writeln('Gia tri Min:',Min);
Readln
End.
a) Thuật toán:
Bước 1: Nhập n và n số thục x1,x2,...,xn
Bước 2: T←0; i←1;
Bước 3: Nếu i>=n thì chuyển xuống bước 6
Bước 4: T←T+xi;
Bước 5: i←i+1 quay lại bước 3
Bước 6: T←T/n;
Bước 7:In kết quả và kết thúc
b) Viết chương trình:
Program HOC24;
var x: array[1..32000] of integer;
i,n: integer;
t: real;
begin
write('n='); readln(n);
for i:=1 to n do
begin
write('x[',i,']='); readln(x[i]);
end;
t:=0; i:=1;
while i<n do
begin
t:=t+x[i];
i:=i+1;
end;
t:=t/n;
write(t:1:2);
readln
end.
program tinhtong;
var n,i : integer;
S : real;
begin
write('Nhap n: ');
readln(n);
i:=1;
S:=0;
while i<=n do
begin
S:=S+1/i;
i:=i+1;
end;
writeln('Tong S= ',S);
readln;
end.
program tinh_tong_S;
var
n, i: integer;
S: real;
begin
write('Nhap n: ');
readln(n);
S := 0;
i := 1;
while i <= n do
begin
S := S + 1 / i;
i := i + 1;
end;
writeln('Tong S la: ', S:0:2);
readln;
end.
var i,n,s:integer;
begin
readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln(s:3:0);
end.
mình làm while do nhé, cái kia để mình tìm hiểu thêm
var S:real;
i,n:longint;
begin
writeln('n=') ; readln(n);
S:=0;
i:=1;
while (i<=n) do
begins=
S:= 9S+1/i;
i:=i+1;
end;
writeln ('S=');
end.