Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
huy hoàng
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 3 2023 lúc 14:42

#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;

}

Lê Thị Cẩm Giang
Xem chi tiết
Minh Lệ
14 tháng 3 2023 lúc 21:29

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.

Lê Nguyễn Thanh Quân
Xem chi tiết
M1014-AWM
27 tháng 3 2021 lúc 17:16


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.

 

nguyễn an phát
27 tháng 3 2021 lúc 20:35

program tinhtong;

uses crt;

var i,n,t:longint;

a:array[1..100]of longint;

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do 

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

t:=0;i:=1;

repeat

t:=t+i;

i:=i+1;

until i=n;

writeln('tong cua ca so tren la:',t);

writeln('trung binh cua cac so tren la:',t/n);

readln;

end.

Nguyễn Lê Phước Thịnh
27 tháng 3 2021 lúc 20:51

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;

for i:=1 to n do 

  t:=t+a[i];

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

writeln('Trung binh cong cac so la: ',t/n:4:2);

readln;

end.

Sóc Trăng Chi nhánh
Xem chi tiết
Nguyễn Lê Phước Thịnh
15 tháng 5 2021 lúc 10:53

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.

huyokkkkk
Xem chi tiết
nguyễn ngô minh triết
Xem chi tiết
Huyen Dinh phuong
Xem chi tiết
Phía sau một cô gái
3 tháng 5 2023 lúc 19:37

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.

Hoàng Hải Bình
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 2 2022 lúc 1:13

uses crt;

var n,i,t,x:integer;

begin

clrscr;

readln(n);

t:=0;

while n>0 do 

begin

x:=n mod 10;

if x mod 2=0 then t:=t+x;

n:=n div 10;

end;

writeln(t);

readln;

end.

Vy Tường_8a2
Xem chi tiết
Nguyễn Lê Phước Thịnh
13 tháng 4 2022 lúc 18:30

uses crt;

var i,n,s:integer;

begin

clrscr;

readln(n);

s:=0;

i:=0;

while i<=n do 

begin

i:=i+1;

s:=s+i*i;

end;

writeln(s);

readln;

end.