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.
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.
var i,n,d:word;
t,b,kt:array[1..10] of word;
procedure nhap;
var f:text;
begin
assign(f,'dulieu.inp');
reset(f);
readln(f,n);
for i:=1 to n do read(f,t[i]);
close(f);
fillchar(b,sizeof(kt),0);
end;
procedure tailap;
var i,j,d:integer;
begin
for i:=1 to n do
begin
d:=0;
for j:=1 to n do
begin
if b[j]=0 then d:=d+1;
if d=t[i]+1 then break;
end;
b[j]:=i;
end;
end;
BEGIN
nhap;
tailap;
for i:=1 to n do write(b[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.
Lời giải :
a) write('nhap n='); readln(n);
S1:=0;
for i:=1 to n do S1:= S1+i;
write(S1);
b) S2:=0;
for i:= 1 to 12 do S2:=S2+i;
write(S2);
c) write('nhap n='); readln(n);
S3:=0;
for i:= 1 to n do
if i mod 2 =0 then S3:=S3+i;
write(S3);
d) S4:=0;
for i:=1 to 32 do
if i mod 2 =0 then S4:=S4+i;
write(S4);
e) write('nhap n='); readln(n);
S5:=0;
for i:=1 to n do
if i mod 2=1 then S5:=S5+i;
write(S5);
f) S6:=0;
for i:= 1 to 39 do
if i mod 2=1 then S6:=S6+i;
write(S6);
cảm ơn bạn nhưng nếu chỉ viết câu lệnh thì mình viết như thế hả.??