viết trương trình cho phép tính trung bình cộng của bốn số với điều kiện chỉ sử dụng hai biến trong turbo pascal
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.
tham khảo https://hayhochoi.vn/cach-tinh-theo-phuong-trinh-hoa-hoc-va-bai-tap-van-dung-hoa-8-bai-22.html
uses crt;
var n,x:integer;
begin
clrscr;
write('Nhap n='); readln(n);
writeln('n=',n);
x:=n;
if x mod 2=0 then writeln(x,' la so chan')
else writeln(x,' la so le');
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.
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.
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.
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...
tích cho mnhf nha