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.
Viết chương trình in ra số lớn nhất trong bốn số nhập từ bàn phím với điều kiện chỉ được dùng 2 biến
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.
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.
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.
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)
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)
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