write readln(tempStr); writeln(tempStr,'---!');

455 단어 delphi
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
tempStr : string;
tempInt : Integer;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('       :') ;
  readln(tempStr);
  writeln(tempStr,'  ,    DElphi  !');

  write('       :');
  readln(tempStr) ;
  tempInt :=StrToInt(tempStr);
  writeln('      :',IntToStr(tempInt));

  writeln(' Enter   .');
  readln;
end.

좋은 웹페이지 즐겨찾기