Pascal の初心者用の質問・相談所

Pascal の初心者用の質問・相談所 at TECH

785:デフォルトの名無しさん
03/11/25 11:46
>>767

program ensyu(input,output);
const msg ='英単語の綴りを逆順にします。';
var engword,downword:string[30];
Len,i :integer;
begin
writeln(msg);
write('英単語は？');
readln(engword);
Len:=length(engword);
for i:=Len downto 1 do
begin
downword:=downword+engword[i];
end;
writeln('逆順にした綴りは',downword,'です。');
readln;
end.

次ページ

続きを表示

1を表示