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.
tham khảo
Program chuong_trinh_tinh_tong;
User crt;
var n,i:integer;
S:real;
begin;
write('nhap n = ');
readln(n);
s:=0;
for i :=1 to n do S :=S + 1/i;
writeln('tong S = ',S:5:2);
readln
end.
tham khảo
Program chuong_trinh_tinh_tong;
User crt;
var n,i:integer;
S:real;
begin;
write('nhap n = ');
readln(n);
s:=0;
for i :=1 to n do S :=S + 1/i;
writeln('tong S = ',S:5:2);
readln
end.
uses crt;
var i,n:longint;
begin
clrscr;
write('Nhap n: ');readln(n);
write('Cac so chan nho hon n la: ');
for i:=1 to n-1 do
if i mod 2=0 then write(i,',');
readln
end.
uses crt;
var n,i:integer;
begin
writeln('nhap n');
readln(n);
for i:=1 to n do
if i mod 2 = 0 then writeln('so chan la=',i);
readln
end.
a: uses crt;
var i,n:integer;
s:real;
begin
clrscr;
s:=0;
for i:=1 to 100 do s:=s+1/i;
writeln(s:4:2);
readln;
end.
b:
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
s:=0;
i:=0;
while i<=100 do
begin
inc(i);
s:=s+1/i;
end;
writeln(s:4:2);
readln;
end.
Lời giải :
Câu 1 : Bạn xem lời giải tại đây Câu hỏi của Phúc Nguyễn - Tin học lớp 8 | Học trực tuyến
Câu 2 : Bạn tham khảo bài mình đã trả lời tại đây Câu hỏi của Lê Nam - Tin học lớp 8 | Học trực tuyến
Câu 3 :
program hotrotinhoc ;
var a : array[1..32000] of integer ;
i,n : integer ;
begin
write('Nhap do dai cua mang'); readln(n);
write('Nhap gia tri cho day so');
for i:= 1 to n do
begin
write('a[',i,']='); readln(n);
end;
for i:=1 to n do
if a[i] mod 3=0 then write(a[i]);
readln
end.
Câu 4 :
program hotrotinhoc ;
var a : array[1..32000] of integer ;
i,n,tbc : integer ;
begin
write('Nhap do dai cua mang'); readln(n);
write('Nhap gia tri cho day so');
for i:= 1 to n do
begin
write('a[',i,']='); readln(n);
end;
tbc:=0;
for i:=1 to n do
tbc:=(tbc+a[i])/i ;
write('Trung binh cong cua day la :,tbc);
readln
end.
uses crt;
var n,s:integer;
begin
clrscr;
s:=0;
n:=0;
while s<=1000 do
begin
n:=n+1;
s:=s+n;
end;
writeln(s);
writeln(n);
readln;
end.
Program hoan_doi;
uses crt;
var x,y,temp:Integer;
begin
x:=3;y:=7;
Writeln('Gia tri cua x truoc khi doi: ',x);
Writeln('Gia tri cua y truoc khi doi: ',y);
temp:=x;
x:=y;
y:=temp;
Writeln('Gia tri cua x sau khi hoan doi: ',x);
Writeln('Gia tri cua y sau khi hoan doi: ',y);
Readln();
end.
Mô tả: Khai báo 3 biến kiểu số nguyên
-Ta gán 3 cho biến x, gán 7 cho biến y
-Sau đó gán giá trị của biến x cho biến temp (để lưu trữ giá trị của biến x);
-Ta gán giá trị của biến y cho biến x (lúc này giá trị của biến x đã bị đổi);
-Rồi gán giá trị của biến temp cho biến y (Giá trị không bị thay đổi theo biến x bởi vì trước khi thay đổi giá trị của biến x thành giá trị của biến y ta đã gán giá trị trước đó của biến x cho biến temp)
1:
uses crt;
var i,j,t,kt:integer;
begin
clrscr;
t:=0;
for i:=1 to 100 do
if i>1 then
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then t:=t+i;
end;
writeln(t);
readln;
end.
Câu 2:
*Viết chương trình:
uses crt;
var n,p,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for p:=2 to n-1 do
if n mod p=0 then t:=t+p;
writeln('Tong cac uoc that su cua ',n,' la: ',t);
readln;
end.
Var a,b,s,p:real;
Begin
Write('a = ');readln(a);
Write('b = ');readln(b);
p:=(a + b)*2;
s:=a*b;
Write('P = ',p:10:2,' va s = ',s:10:2);
Readln;
End.
program tinh_toan;
uses crt;
var S;i:integer;
begin
S:=0;
for i:=2 to 100 do S:=S+1/i;
writeln(S);
readln;
end.
Var i,n:integer;
s:real;
Begin
Write('n = ');readln(n);
For i:=2 to n do s:=s+1/i;
Write('tong la ',s:10:2);
Readln;
End.