Pascalの宿題は俺にやらせろ！！Part2

Pascalの宿題は俺にやらせろ！！Part2 at TECH

283:デフォルトの名無しさん
06/05/26 02:25:45
>>278
ヒント

program database( input , output );
type a = ^b ; b = record c : packed array [1..20] of char ; d : a ;
var e, f : packed array [1..20] of char ;
bagin
readln(e);
readln(f);
if e < f then
begin writeln( e , f ); end else begin writeln( f , e ); end;
end.

２単語入力のみ対応

次ページ

続きを表示

1を表示