初一奥数

[复制链接]
查看11 | 回复0 | 2009-7-15 19:39:12 | 显示全部楼层 |阅读模式
var x1,x4,x5,x6,x7:array[1..6]of integer;x2,x3:array[1..6]of string;i,j,s:integer;begin for i:=1 to 6 do begin readln(x2);readln(x3);end;for i:=1 to 6 do beginread(x1,x4,x5,x6);x7:=x4+x5+x6;end;for i:=1 to 6 do writeln(x1,'',x2,'',x3,'',x7);end.
回复

使用道具 举报

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

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行