Pascal 编程问题求解

[复制链接]
查看11 | 回复1 | 2007-11-18 22:32:53 | 显示全部楼层 |阅读模式
var a,b:longint;beginreadln(a);b:=a div 100 * 100 + a mod 10 * 10 + a mod 100 div 10;writeln(b);end.
回复

使用道具 举报

千问 | 2007-11-18 22:32:53 | 显示全部楼层
program exp1_1;vara,b:integer;beginwrite('input,a');readln(a);b:=a div 100 *10+a div 10 mod 10 *100+a mod 10;writeln('b=',b);end.
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行