明解Ｃ言語 入門編 > 4. プログラムの流れの繰り返し > 読み込んだ整数値は奇数か偶数か (do文) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var cont, no: Integer; begin repeat write('整数を入力してください：'); read(no); if (no mod …