1.var a,b,c:integer;
begin
for a:=0 to 100 div 2 do
for b:=0 to (100-2*a) div 4 do
for c:=0 to (100-2*a-4*b) div 9 do
if (a+b+c*9=100) {张数100}
and (2*a+4*b+9*c=100) {钱100块}
then writeln('三种明信片所买的张数:',a:5,b:5,c:5);
end.
3.一球从100米高度自由落下，每次落地后反跳回原高度的一半；再落下，求它在第20次落地时，共经过多少米？main()
{
float sn=100.0,hn=sn/2;
int n;
for(n=2;n<=20;n++)
{
sn=sn+2*hn;/*第n次落地时共经过的米数*/
hn=hn/2; /*第n次反跳高度*/
}
printf("the total of road is %fn",sn);
}
5.var zhao,qian,sun,li,zhou,a,i,j,k:longint;
begin
for zhao:=1 to 5 do
for qian:=1 to 5 do
for sun:=1 to 5 do
for li:=1 to 5 do
for zhou:=1 to 5 do
if zhao+qian+sun+li+zhou=15 then
if zhao*qian*sun*li*zhou=120 then
begin
if (qian mod 5+1=zhao)or((qian+3) mod 5+1=zhao) then continue;
if ((qian+3) mod 5+1=sun)or((qian+3)mod 5+1=li) then continue;
if ((sun+3) mod 5+1=qian) then continue;
if ((sun+3) mod 5+1=li)or(sun mod 5+1=li) then continue;
writeln('zhao=',zhao,' qian=',qian,' sun=',sun,' li=',li,' zhou=',zhou);
end;
结果自己验证一下，数字就是这些人的座位号
7。#include"stdio.h"
int main() {
for(int i=-3;i<=3;i++){
for(int j=0;j<(i>0?i:-i);j++)
printf(" ");
for(j=0;j<(i>0?-2*i+7:2*i+7);j++)
printf("*");
printf("n");
}
return 0;
}
首重100克内，每重20克（不足20克按20克计算）需要1.20元邮票，续重101-2000克，每重100克（不足100克按100克计算）需要续费2.00元邮票，如果需要挂号邮寄，每件信再加3.00元挂号费，2.4元邮票，只能寄40克以内的平信。
供寄递邮件贴用的邮资凭证，一般由主权国家发行。邮票的方寸空间，常体现一个国家或地区的历史、科技、经济、文化、风土人情、自然风貌等特色，这让邮票除了邮政价值之外还有收藏价值。邮票也是某些国家或地区重要的财源来源。收藏邮票的爱好叫集邮。
其他邮寄方式
1、经济快递
经济快递主要定位国内物品类市场。 主要服务对象为批量交寄、价值相对较高、对安全、信息反馈和综合性价比要求较高的大综客户。如网上购物、电视购物、电子通信产品生产厂家或销售商等。
2、京津当日递
“EMS限时专递-京津当日递”业务，即客户在上午11点前交寄，保证在当日18点前送达到收件人的限时递业务。 适合寄递京津两地对时限要求较高的文件类邮件。 安全、快捷，让您在提高工作效率的同时，真正享受EMS卓越的服务品质。