Viết chương trình đọc từ bàn phím một loạt số nguyên cho đến khi nhập số 0.Hãy tính và in ra trung bình cộng của số chia hết cho 3 và 2(lấy 2 chữ số thập phân).
uses crt;
var a,t,dem:integer;
begin
clrscr;
t:=0;
dem:=0;
repeat
write('Nhap a='); readln(a);
if (a mod 2=0) and (a mod 3=0) then
begin
t:=t+a;
dem:=dem+1;
end;
until a=0;
writeln('Trung binh cong cua cac so chia het cho 3 va 2 la: ',t/dem:4:2);
readln;
end.
const fo='int.txt';
fo='out.txt';
var f1,f2:text;
m,n:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,m);
readln(f1,n);
writeln(f2,m+n);
close(f1);
close(f2);
end.
#include <iostream>
#include <iomanip>
using namespace std;
int main()
{
int n,i;
float a[12];
float tbc;
cout<<"Nhap so mon hoc:";
cin>>n;
for (i=1;i<=n;i++)
{
cout<<"Nhap diem so mon hoc thu "<<i<<":";
cin>>a[i];
}
tbc=0;
for (i=1;i<=n;i++)
tbc=tbc+a[i];
cout<<"Trung binh cong la:"<<fixed<<setprecision(2)<< tbc/n;
return 0;
}
uses crt;
var a:array[1..30]of integer;
i,n,tam,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln('Mang theo thu tu giam dan la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
writeln('Cac phan tu le va chia het cho 5 la: ');
for i:=1 to n do
if (a[i] mod 2<>0) and (a[i] mod 5=0) then write(a[i]:4);
writeln;
writeln('Cac phan tu chan la: ');
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if (a[i] mod 2<>0) and (a[i] mod 3=0) then inc(dem);
writeln('So phan tu la so le va chia het cho 3 la: ',dem);
readln;
end.
a) {Dem so luong phan tu la so chan}
program dem_so_luong_so_chan;
uses crt;
var
i,dem,n: longint;
a:array[1..10000] of longint;
begin
writeln('Nhap n = '); readln(n);
for i:=1 to n do
begin
writeln('Nhap so thu ',i); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
begin
if (a[i] mod 2 = 0) then inc(dem);
end;
write('So luong so chan la: ',dem); readln;
end.
b) {Dem so luong so lon hon 100}
program dem_so_luong_so_lon_hon_100;
uses crt;
var
i,n,dem:longint;
a:array[1..10000] of longint;
begin
writeln('Nhap n = '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
begin
if (a[i]>100) then inc(dem);
end;
write('Vay so luong so lon hon 100 la: ',dem); readln;
end.
c) {In ra so chan}
program in_ra_so_chan;
uses crt;
var
i,n:longint;
a:array[1..10000] of longint;
begin
writeln('Nhap n = '); readln(n);
for i:=1 to n do
begin
writeln('Nhap so thu ',i); readln(a[i]);
end;
for i:=1 to n do
begin
if (a[i] mod 2 = 0) then writeln(a[i]);
end;
readln;
end.
uses crt;
var st:string[40];
i,d,dem:integer;
begin
clrscr;
write('Nhap ho ten:'); readln(st);
d:=length(st);
dem:=0;
for i:=1 to d do
if st[i]='A' then inc(dem);
writeln('Ten nguoi do co ',dem,' chu A');
readln;
end.