uses crt;
var dem,n,m,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
write('Nhap m='); readln(m);
t:=m+n;
writeln('Trung binh cong cua chung la: ',t/2:4:2);
dem:=0;
if n mod m=0 then inc(dem);
if m mod n=0 then inc(dem);
writeln('Co ',dem,' so la boi so cua so kia');
readln;
end.
Viết chương trình nhập vào mảng dãy số n số phần tử nguyên và cho biết có bao nhiêu dãy số là chẵn? Tính trung bình cộng của dãy số còn nhập
var a:array[1..1000] of integer;
i,n,d:integer;
s:longint;
tbc:real;
begin
write('n = ');readln(n);
For i:=1 to n do
begin
write('Nhap so thu ',i,' = ');readln(a[i]);
s:=s+a[i];
if a[i] mod 2 = 0 then d:=d+1;
end;
tbc:=s/n;
writel('Co ',d,' so chan');
write('Trung binh cong cua day so la ',tbc:10:2);
readln
end.
Hãy viết chương trình pascal thực hiện các công việc sau
a ) Nhập vào 1 dãy số nguyên
b ) Hiện thị dãy số vừa nhập
c ) Tính trung bình công của dãy số đó
d ) Hiện thị các số là bội của 3
e ) Hiện thị các số lẻ là bội của 5
f ) Tìm số lớn nhất có trong dãy
g ) Đưa số lớn nhất lên đầu dãy nhưng không làm mất các giá trị có trong dãy
h ) Tính trung bình cộng số thứ 8 và số thứ 10 ở trong dãy
Mai mình thi rồi , mong mọi người giúp e vs ạ
Var a:array:[1..1000] of integer;
i,n,max,t,d:integer;
s:longint;
tb:real;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap diem thu ',i,' = ');readln(a[i]);
s:=s+a[i];
End;
tb:=s/n;
Write('Cac so vua nhap la: ');
For i:=1 to n do
Write(a[i]:8);
writeln;
writeln('Trung binh cong cua day la ',tb:10:2);
Write('Cac so la boi cua 3 la ');
For i:=1 to n do
if a[i] mod 3 = 0 then write(a[i]:8);
writeln;
write('Cac so le la boi cua 5 la ');
for i:=1 to n do
if (a[i] mod 2 <> 0) and (a[i] mod 5 = 0) then
write(a[i]:8);
Writeln;
max:=a[1];
for i:=1 to n do
if a[i] > max then
begin
max:=a[i];
d:=i;
End;
Writeln('So lon nhat la ',max);
t:=a[1];
a[1]:=max;
a[d]:=t;
Write('Day sau khi dem so lon nhat ra truoc ');
For i:=1 to n do
write(a[i]:8)
writeln;
tb:=(a[8] + a[10])/2);
Write(Trung binh cong cua so thu 8 va thu 10 la ',tb:10:2);
Readln
End.
Viết chương trình nhập vào một mảng hai chiều có M dòng, N cột là các số nguyên dương, sau đó:
- In ra mảng vừa nhập
- Tính tổng các số chẵn của mảng
- Đếm xem trong mảng có bao nhiêu số bằng 10.
Viết chương trình nhập vào một mảng hai chiều có M dòng, N cột là các số nguyên dương, sau đó:
- In ra mảng vừa nhập
- Tính tổng các số chẵn của mảng
- Đếm xem trong mảng có bao nhiêu số bằng 10.
#include <iostream>
using namespace std;
int main()
{
int a[100][100],i,j,m,n;
cout<<"Nhap so dong cua mang:"; cin>>n;
cout<<"Nhap so cot cua mang:"; cin>>m;
for (i=1; i<=n; i++)
for (j=1; j<=m; j++)
{
cout<<"A["<<i<<","<<j<<"]="; cin>>a[i][j];
}
for (i=1; i<=n; i++)
{
for (j=1; j<=m; j++)
cout<<a[i][j]<<" ";
cout<<endl;
}
return 0;
}
2: Viết chương trình sử dụng lệnh lặp để tính trung bình cộng của N số thực. Với số N và các số tính trung bình cộng được nhập vào từ bàn phím. Câu 3: Viết chương trình nhận biết một số tự nhiên N được nhập từ bàn phím có phải là số nguyên tố hay không.
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.
1/ viết chương trình nhập vào hai số nguyên a,b tìm trung bình cộng của a,b
2/ Một cửa hàng bán sách có chương trình khuyến mãi như sau:
- Nếu mua hàng vào các ngày từ thứ 2 tới thứ 6 thì giảm 10% tổng số tiền
- Nếu mua hàng vào ngày thứ 7 thì giảm 30% tổng số tiền
- Nếu mua hàng vào ngày chủ nhật thì giảm 40% tổng số tiền
Hãy viết chương trình nhập vào ngày mua sắm là thứ mấy trong tuần( thứ hai là số 2, thứ ba là số 3,.... chủ nhật là số 8) và tổng số tiền.Cho biết số tiền sau cùng khách hàng phải trả là bao nhiêu?
Câu 1:
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln((a+b)/2:4:2);
readln;
end.
viết chương trình nhập vào dãy A gồm 10 số nguyên. Tnhs và in ra màn hình tổng, trung bình cộng của các số trong mảng đó
uses crt;
var a:array[1..10]of integer;
i,t:integer;
begin
for i:=1 to 10 do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to 10 do
t:=t+a[i];
writeln('Tong cua day la: ',t);
writeln('Trung binh cong cua day la: ',t/n:4:2);
readln;
end.
1. viết chương trình nhập vào 4 số nguyên a, b, c, d .Tính tích và trung bình cộng của 4 số này
2. viết chương trình nhập vào 3 cạnh của 1 hình tam giác. Tính chu vi và diện tích của tam giác đó
3. viết chương trình nhập vào dộ cao của 1 vật. Tính vận tốc rơi tự do của vật đó
2:
#include <bits/stdc++.h>
using namespace std;
double a,b,c,p,s;
int main()
{
cin>>a>>b>>c;
p=(a+b+c)/2;
s=sqrt(p*(p-a)*(p-b)*(p-c));
cout<<fixed<<setprecision(2)<<s;
return 0;
}