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
phút tony
Xem chi tiết
Trường Phan
26 tháng 12 2021 lúc 10:05

a/ =SUM(A1:A5)=29

    =SUM(A1,A2,A3,A4,A5)=29

b/ =MAX(A1:A5)=9

     =MAX(A1,A2,A3,A4,A5)=9

phút tony
26 tháng 12 2021 lúc 10:01

giúp mik với

Trường Phan
26 tháng 12 2021 lúc 10:51

uk đúng đấy bạn

Nhi Tăng
Xem chi tiết
Phan Thanh Bình
9 tháng 4 2016 lúc 16:21

to tbc
cs
make "n 1
make "dem 1
make "s 0
while [:dem<101][make "s :s + :n make "n :n + 4 make "dem :dem + 1]
make "tb :s/(:dem - 1)
rt 90 label[Trung binh cong la:] pu fd 200 pd label :tb ht
end

Phan Thanh Bình
9 tháng 4 2016 lúc 16:22

to tbc
cs
make "n 1
make "dem 1
make "s 0
while [:dem<101][make "s :s + :n make "n :n + 4 make "dem :dem + 1]
make "tb :s/(:dem - 1)
rt 90 label[Trung binh cong la:] pu fd 200 pd label :tb ht
end

hoaithu truong
12 tháng 6 2023 lúc 10:22

how

NGUYỄN LÊ XUÂN THỊNH
Xem chi tiết
Kiều Vũ Linh
23 tháng 2 2023 lúc 11:23

Bài 1

Var s,i:integer;

tb:real;

Begin

Write('Nhap n = ');readln(n);

i:=1;

s:=0;

While i<=n do

Begin

s:=s+i;

i:=i+1;

End;

tb:=s/n;

Writeln('Tong la ',s);

Write('Trung binh la ',tb:10:2);

Readln;

End.

Kiều Vũ Linh
23 tháng 2 2023 lúc 11:27

Bài 2

Var i,n,souoc:integer;

Begin

Write('Nhap n = ');readln(n);

i:=1;

While i <= n do

Begin

i:=i + 1;

If n mod i = 0 then souoc:=souoc + 1;

End;

If souoc = 1 then write(n,' la so nguyen to')

Else write(n,' khong la so nguyen to');

Readln;

End.

Chi Ngu
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 3 2021 lúc 20:51

uses crt;

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

t,i,n:integer;

begin

clrscr;

write('Nhap do dai cua day:'); 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('Gia tri trung binh cua day la: ',t/n:4:2);

readln;

end.

Nguyễn kiên
Xem chi tiết
Nguyên Khôi
Xem chi tiết
TNhi
Xem chi tiết
Minh Lệ
7 tháng 3 2023 lúc 23:25

Program HOC24;

var i,n: byte;

a: array[1..1000] of integer;

t: longint;

begin

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

for i:=1 to n do 

begin

write('Nhap so thu ',i,': '); readln(a[i]);

tbc:=0; t:=0;

end;

for i:=1 to n do t:=t+a[i];

writeln('Tong la :',t);

write('Trung binh cong cac phan tu la: ',t/n:5:2);

readln

end.

Đức Lương Trần
Xem chi tiết
Nguyễn Lê Phước Thịnh
12 tháng 5 2022 lúc 23:56

uses crt;

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

i,n,t,ln,nn:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

t:=0;

nn:=a[1];

ln:=a[1];

for i:=1 to n do 

begin

t:=t+a[i];

if nn>a[i] then nn:=a[i];

if ln<a[i] then ln:=a[i];

end;

writeln(t);

writeln(ln);

writeln(nn);

writeln(t/n:4:2);

readln;

end.

Lương Ngọc Anh
Xem chi tiết
Nguyễn Lê Phước Thịnh
24 tháng 12 2021 lúc 9:53

Câu 35: B

Câu 36: D