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.

11 tháng 2 2021

program chia_n;

uses crt;

var n,i:integer;

s:real;

begin 

clrscr;

Write('Hay nhap so n ');readln(n);

s:=0;

for i:=1 to n do s:=s+1/i;

writeln('Tong la ',s:1:2);

readln;

end.

nhớ tick cho mik nha!

18 tháng 12 2021

Câu 2: 

Kinh tế tri thức là nền kinh tế mà trong đó tri thức là yếu tố quan trọng trong việc tạo ra của cải vật chất và tinh thần của xã hội.  
5 tháng 5 2019

chịu nạ

11 tháng 2 2021

program chia;

uses crt;

var n,i:integer;

s:real;

begin 

clrscr;

s:=0;

for i:=2 to 50 do s:=s+1/i;

writeln('Tong la ',s:1:2);

readln;

end.

 

 

14 tháng 4 2023

Program HOC24;

var i: byte;

a: array[1..10] of real;

begin

for i:=1 to 10 do begin write('Nhap diem cua ban thu ',i,': '); readln(a[i]); end;

readln

end.

#include <bits/stdc++.h>

using namespace std;

double a,b,c,tbc;

int main()

{

cin>>a>>b>>c;

tbc=(a*3+b*2+c*3)/8;

cout<<fixed<<setprecision(2)<<tbc;

return 0;

}

 

28 tháng 5 2019

KM

1 + 1 = 2 

19 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long i,n;

double p;

int main()

{

cin>>n;

p=0;

for (i=1; i<=n; i++)

p=p+1/(i*1.0);

cout<<p+3*n;

return 0;

}

26 tháng 4 2022

uses crt;
var b,c:real; a:array[1..100] of integer; s:real;
begin
clrscr;
write('Nhap vao diem hoc ki 1:');readln(b);
write('Nhap vao diem hoc ki 2:');readln(c);
s:=((b+c)*2)/3;
write('Diem ca nam=',s:2:2);
readln;
end.

Tham khảo! Làm hơi ngắnbucminh