Program HOC24;

var i,n: integer;

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

t: real;

begin

write('Nhap so phan tu: '); readln(n);

for i:=1 to n do

begin

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

end;

t:=0;

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

t:=t/n;

write('Trung binh cong cua day so la: ',t:5:2); 

readln

end.

Câu 3: 

uses crt;

var n,i,kt:integer;

begin

clrscr;

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

if n>1 then 

begin

kt:=0;

for i:=2 to trunc(sqrt(n)) do 

  if n mod i=0 then kt:=1;

if kt=0 then writeln(n,' la so nguyen to')

else writeln(n,' la hop so');

end

else writeln(n,' khong la so nguyen to cung khong la hop so');

readln;

end.

Program TB_nhan;

uses crt;

Var a, S: real;

Begin

clrscr;

S:=1;

Write('Nhap so thu nhat: '); readln(a); S:=S*a;

Write('Nhap so thu hai: '); readln(a); S:=S*a;

Write('Nhap so thu ba: '); readln(a); S:=S*a;

Write('Nhap so thu tu: '); readln(a); S:=S*a;

Write('Trung binh nhan cua bon so la:',sqrt(sqrt(s)));

readln;

End

program mang;

uses crt;

var

      N, i: integer;

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

      sum, average: double;

begin

      clrscr;

      write('Nhap so phan tu mang: ');

      readln(N);

      sum := 0;

      for i:= 1 to N do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(a[i]);

            sum := sum + a[i];

      end;

      writeln('Cac phan tu cua mang la:');

      for i:= 1 to N do

            write(a[i], ' ');

      average := sum / N;

      writeln('Tong cac phan tu cua mang la: ', sum:0:2);

      writeln('Trung binh cong cua mang la: ', average:0:2);

      readln;

end.

Program HOC24;

var i,n: integer;

tb: real;

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

begin

for i:=1 to n do

begin

write('Nhap can nang cua ban thu ',i,': '); readln(a[i]);

end;

tb:=0;

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

write('Trung binh cong cua 10 ban do la: ',tb/10:1:2);

readln

end.

uses crt;

var i,n: integer;

tb: real;

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

begin

clrscr;

n:=10;

for i:=1 to n do

begin

write('Nhap can nang cua ban thu ',i,': '); readln(a[i]);

end;

tb:=0;

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

write('Trung binh cong cua 10 ban do la: ',tb/10:1:2);

readln

end.

mình ko biết

 

Gửi bài tập cần làm >> Bài tập tôi đã gửi lênLời giải tôi đã gửi lênGửi chia sẻ phương pháp học tập Tìm theo Lớp học Lớp 1 Lớp 2 Lớp 3 Lớp 4 Lớp 5 Lớp 6 Lớp 7 Lớp 8 Lớp 9 Lớp 10 Lớp 11 Lớp 12 Đại học Trình độ khác Tìm theo Môn học Âm nhạc Mỹ thuật Toán học Vật lý Hóa học Ngữ văn Tiếng Việt Tiếng Anh Đạo đức Khoa học Lịch sử Địa lý Sinh học Tin học Lập trình Công nghệ Thể dục Giáo dục Công dân Giáo dục Quốc phòng - An ninh Ngoại ngữ khác Xác suất thống kê Tài chính tiền tệ Khác Lazi.vn - Cộng đồng Tri thức & Giáo dục == Môn học == Âm nhạc Mỹ thuật Toán học Vật lý Hóa học Ngữ văn Tiếng Việt Tiếng Anh Đạo đức Khoa học Lịch sử Địa lý Sinh học Tin học Lập trình Công nghệ Thể dục Giáo dục Công dân Giáo dục Quốc phòng - An ninh Ngoại ngữ khác Xác suất thống kê Tài chính tiền tệ Khác == Trình độ lớp == Đại học Cấp 3 (Trung học phổ thông) - Lớp 12 - Lớp 11 - Lớp 10 Cấp 2 (Trung học cơ sở) - Lớp 9 - Lớp 8 - Lớp 7 - Lớp 6 Cấp 1 (Tiểu học) - Lớp 5 - Lớp 4 - Lớp 3 - Lớp 2 - Lớp 1 Trình độ khác Gửi bài tập bạn cần làm Bài tập | Bài tập chưa có lời giải >> | Bài tập tôi đã gửi lên >> | Phương pháp Học tập >> | Gửi bài tập >> Nội dung bạn tìm " Viết chương trình cho phép tính trung bình cộng của 4 số " có trong những liên kết dưới đây, nhấp chuột để xem chi tiết: Viết chương trình cho phép tính trung bình cộng của 4 số (Tin học - Lớp 8)

	Nguyễn Hiếu
	Thứ 3, ngày 20/12/2016 03:41:26

Xem chi tiết + Lời giải... Viết chương trình pascal tính: Tính diện tích của tam giác có 3 cạnh là A, B, C (được nhập từ bàn phím); Viết chương trình cho phép tính trung bình cộng của 4 số (số được nhập từ bàn phím); Viết chương trình cho phép tính trung bình nhân của 4 số với điều kiện chỉ được sử dụng 2 biến (được nhập từ bàn phím)(Tin học - Lớp 11)

	Huỳnh thắm
	Chủ nhật, ngày 09/10/2016 02:11:22

Viết chương trình pascal tính:
a) Tính diện tích của tam giác có 3 cạnh là A, B, C (được nhập từ bàn phím)
b) Viết chương trình cho phép tính trung bình cộng của 4 số (số được nhập từ bàn phím)
c) Viết chương trình cho phép tính trung bình nhân của 4 số với điều kiện chỉ được sử dụng 2 biến (được nhập từ bàn phím) Xem chi tiết + Lời giải...

Giải thưởng tháng 11 Giới thiệu Thành viên Bảng Xếp Hạng Khảo sát ý kiến

Like và Share page Lazi fb.com/lazi.vn để nhận được nhiều thông tin thú vị và bổ ích hơn nữa! Đuổi hình bắt chữ Xem tất cả >> | Gửi hình ảnh của bạn >> Loading... Đố vui Tìm chữ số tiếp theo của dãy: 5; 25; 29; 85; 89; ? (chưa có đáp án) Hạt gì không thể mọc thành cây mà còn làm cho cây tươi tốt? (chưa có đáp án) Có ông thợ săn đang đi trên đồi thì phát hiện cá hổ, ông ấy bắn con cá hổ ăn thịt người dù đã bắn trúng nhưng nó vẫn sống? Vì sao lại vô lý thế? Có một bà cụ bả tên là Nguyễn Thị Ở Dơ. Hỏi SĐT của bả là số bao nhiêu? Tên như cái túi, cái bì. Ở trong bọc trứng, da thì trắng phau? Xem tất cả >> | Gửi đố vui của bạn >> Đố vui IQ Xem tất cả >> | Gửi đố vui IQ của bạn >> Thăm dò Khảo sát ý kiến Bạn có yêu môn Văn không? Thằng mà mình để ý, con bạn không thân lắm cứ tỏ ra tốt với nó. Làm gì với thằng nhỏ và con bé? Idol của bạn là ai? Điểm thi môn nào thấp nhất? Bạn học lớp mấy? Edogawa Conan (Kudou Shinichi) và Kaito Kid (Kuroba Kaito), bạn thích ai hơn? Bạn thích bài nào trong LOVE LIVE? Bạn thích làm Vật lý, Toán tiếng Việt, Toán tiếng Anh, hay IOE hơn? Bạn thấy môn tiếng Anh cho vào bộ đề thi lên cấp 3 có hợp lí không? Mori Ran và Haibara Ai trong Conan, bạn thích ai hơn? Xem tất cả >> | Tạo thăm dò khảo sát ý kiến >> Truyện cười | Truyện ngụ ngôn Ai ghê gớm hơn Áo không dám mặc Thay thế Lũ ếch muốn có vua Ong Mật, Ong Vằn và Ong Bắp Cày Trùn và Cá Tất cả truyện cười >> Tất cả truyện ngụ ngôn >> Gửi truyện cười >> | Gửi truyện ngụ ngôn >>

Giải thưởng tháng 11 Giới thiệu Thành viên Bảng Xếp Hạng Khảo sát ý kiến

Lazi.vn BẢNG XẾP HẠNG TOP THÀNH VIÊN Tuần 17 - 23/12 | Tháng 12-2017 | Yêu thích

STT	Họ tên	Avatar	Điểm
1	Huyền Thu		203
2	Nguyễn Trần Lam Phong		97
3	lê thị thùy diên		65
4	Cao Dũng		59
5	Baby cool ❤		57

Giải thưởng T.11

Bảng Xếp Hạng

[Đóng lại]

Trang chủ Hỏi đáp Học tập Trung tâm GD&ĐT Giới thiệu Sách hay Trường học Shop Lazi Gia sư Bản tin Giáo dục & Đào tạo Thi trắc nghiệm Tài liệu PP Học tập Khảo sát ý kiến Đố vui Mục tiêu của bạn Kết bạn bốn phương Đố vui IQ Truyện cười Tư duy logic Truyện ngụ ngôn Đuổi hình bắt chữ Video Những điều tốt đẹp Thơ văn danh ngôn Thế giới đó đây - Những điều kỳ thú Chia sẻ tâm sự - Bạn đọc viết Chương trình Sự kiện tại Lazi.vn Thống kê tổng quan Xem lịch Hôm nay Phòng trò chuyện Copyright ©2017 Lazi.vn Phòng trò chuyện (Hiện / Ẩn)

tích cho mnhf nha

uses crt;

var TB: longint;

a,b,c,d :integer;

begin

clrscr;

write('nhap 4 so a,b,c,d = ') ; readln(a,b,c,d);

TB: (a+b+c+d)/4;

writeln('trung binh cong cua 4 so la : ' , TB);

readln

end.

program TimSoLonNhat;

var

     a, b, c, d, max: integer;

begin

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

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

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

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

     max := a;

     if b > max then

          max := b;

     if c > max then

          max := c;

     if d > max then

          max := d;

     writeln('So lon nhat la: ', max);

     readln;

end.

program TimSoLonNhat;

var a, b, c, d: integer; 

begin
  writeln('Nhap vao gia tri cua a: ');
  readln(a);
  writeln('Nhap vao gia tri cua b: ');
  readln(b);
  writeln('Nhap vao gia tri cua c: ');
  readln(c);
  writeln('Nhap vao gia tri cua d: ');
  readln(d);

  if (a > b) and (a > c) and (a > d) then
    writeln('So lon nhat la: ', a)
  else if (b > a) and (b > c) and (b > d) then
    writeln('So lon nhat la: ', b)
  else if (c > a) and (c > b) and (c > d) then
    writeln('So lon nhat la: ', c)
  else
    writeln('So lon nhat la: ', d);
    readln;
end.

Thêm dấu ";" sau MAX:=a nhé

Uses CRT;

Var a,b,c,d,MAX : integer;

Begin

clrscr;

Readln(a,b,c,d);

MAX:=a

If MAX<b then MAX:=b;

If MAX<c then MAX:=c;

If MAX<d then MAX:=d;

Writeln('So lon nhat la',MAX);

Readln

End.

( Chưa học nhưng mình đọc trước :v Sai thì mong được bổ sung )

Câu 1:

uses crt;
var a,b,c,d,min:longint;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
min:=a;
if min>b then min:=b;
if min>c then min:=c;
if min>d then min:=d;
writeln('so nho nhat la: ',min);
readln;
end.

Câu 2:

uses crt;
var a,b,c:real;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
if (a>0) and (b>0) and (c>0) then
begin
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
if (a=b) and (b=c) then writeln('day la 3 canh trong mot tam giac deu')
else writeln('day khong la 3 canh trong mot tam giac deu');
end
else writeln('day khong la 3 canh trong mot tam giac');
end
else writeln('vui long nhap 3 so duong');
readln;
end.

Câu 3:

uses crt;
var a,dv,ch,tr:longint;
begin
clrscr;
write('a='); readln(a);
if (a>=100) and (a<=999) then
begin
dv:=a mod 10;
ch:=a div 10; ch:=ch mod 10;
tr:=a div 100; tr:=tr mod 10;
writeln('chu so hang tram: ',tr);
writeln('chu so hang chuc: ',ch);
writeln('chu so hang don vi: ',dv);
end
else writeln('vui long nhap so co ba chu so');
readln;
end.

Câu 4:

uses crt;
var a,s:longint;
begin
clrscr;
s:=1;
write('so thu 1:'); readln(a);
s:=s*a;
write('so thu 2:'); readln(a);
s:=s*a;
write('so thu 3:'); readln(a);
s:=s*a;
write('so thu 4:'); readln(a);
s:=s*a;
writeln('trung binh nhan cua 4 so la: ',s/4:4:2);
readln;
end.

Câu 5:

uses crt;
var a,s:longint;
begin
clrscr;
s:=0;
write('so thu 1:'); readln(a);
s:=s+a;
write('so thu 2:'); readln(a);
s:=s+a;
write('so thu 3:'); readln(a);
s:=s+a;
write('so thu 4:'); readln(a);
s:=s+a;
writeln('trung binh cong cua 4 so la: ',s/4:4:2);
readln;
end.