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,s:integer;
begin
readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln(s:3:0);
end.
Program bai1;
uses crt;
var a: array [1..100] of integer;
i,n,min,s: integer;
begin
clrscr;
write('nhap n ='); readln(n);
for i:= 1 to n do
begin
write('nhap a[',i,'] ='); readln(a[i]);
end;
min:=a[1];
s:=0;
for i := 1 to n do
s:=s+a[i];
write('tong cac day so trong mang =',s :4);
writeln;
for i:= 1 to n do
if min > a[i] then min:=a[i];
write('so nho nhat trong day la :' ,a[i]);
readln;
end.
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.
Uses crt;
Var a,b,S1,S2,S: real ;
Begin
Write ('Nhap a: '); readln (a);
Write('Nhap b: '); readln (b);
S1:=2*a*b;
S2:= (3.14*b*sqr(a))/2;
S:= S1+S2;
If (a<>0) and (b<>0) then Write (S);
Readln ;
End.
uses crt;
var a,b,s1:integer;
s2,s:real;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
s1:=2*a*b;
s2:=(sqr(a)*b*pi))/2;
s:=s1+s2;
writeln(s:4:2);
readln;
end.