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.

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,t=0,i,dem=0;

cin>>n;

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

if (i%2==0)

{

t=t+i;

dem++;

}

cout<<fixed<<setprecision(2)<<(t*1.0)/(dem*1.0);

return 0;

}

14 tháng 3 2023

Program HOC24;

var i,n: integer;

x: array[1..1000] of real;

tbc: real;

begin

write('Nhap n: '); readln(n);

for i:=1 to n do

begin

write('x[',i,']='); readln(x[i]);

end;

tbc:=0;

for i:=1 to n do tbc:=tbc+x[i];

tbc:=tbc/n;

write('Trung binh cong la: ',tbc:6:2);

readln

end.

27 tháng 3 2021


program tinhtong;

uses crt;

var i, n, s: integer;

begin clrscr;

Write('N so tu nhien dau tien la: ');

readln(n);

s:=0;

i:=1;

while i<=n do begin

s:=s+i;

i:=i+1;

end;

writeln('Tong cac so la: ',s);

readln

end.

 

27 tháng 3 2021

giúp mình câu này luôn nhé

In ra màn hình trung bình của cấc số đã cho ở trên.
liên quan bài trên 

uses crt;

var a:array[1..100]of integer;

i,n,t:integer;

begin

clrscr;

write('nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

i:=1;

while i<=n do 
  begin

t:=t+a[i];

inc(i);

end;

writeln(t/n:4:2);

readln;

end.

9 tháng 12 2021

var m,n: integer;

begin

    writeln(' nhap so nguyen a: ');

    read(a);

    writeln(' nhap so nguyen b: ');

    read(b);

    writeln((m + n)/2);

    readln;

end.

3 tháng 5 2023

program TinhTBC;

uses crt;

var

      N, i: integer;

      Tong, TBC : real;

      A: array[1..100] of real;

begin

      write('Nhap so phan tu mang N = ');

      readln(N);

      writeln('Nhap cac phan tu cua mang: ');

      for i:=1 to N do

      begin

            write('A[', i, '] = ');

            readln(A[i]);

      end;

      Tong := 0;

      for i:=1 to N do

            Tong := Tong + A[i];

      TBC := Tong / N;

      writeln('Tong cac phan tu: ', Tong:5:2);

      writeln('Trung binh cong: ', TBC:5:2);

      readln;

end.

14 tháng 3 2023

program TongN;

var

     n, i, tong: integer;

begin

     tong := 0;

     writeln('Nhap so nguyen duong N: ');

     readln(n);

     i := 0;

     while i < n do

     begin

          i := i + 1;

          tong := tong + i;

     end;

     writeln('Tong cac so tu 1 den ', n, ' la ', tong);

     readln;

end.

1:

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

t:=t+i*i;

write(t);

readln;

end.

4 tháng 4 2023

2

program bt2;

var i,n,t:integer;

begin

readln(n);

s:=0;

for i:=1 to n do

if i mod 2 = 1 then s:=s+i;

readln;

end.