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.
write readln(tempStr); writeln(tempStr,'---!');
最新推荐文章于 2022-06-04 21:12:38 发布