- 631 名前：デフォルトの名無しさん [2007/10/24(水) 23:33:00 ]
- 失礼します〜
program PR0501(input,output);
var C:char;N:integer;
begin
readln(N);
c:=chr(N);
writeln(N-1,' ',chr(N-1),' ',N,' ',chr(N),' ',N+1,chr(N+1));
writeln(N-1,' ',pred(N),' ',N,' ',chr(N),' ',N+1,' ',cuss(N));
end.
これ、なにがちがうんでしょう？そもそも何をやっているのかわかってないのですが…
