program Project1;
{$APPTYPE CONSOLE}
uses SysUtils;var
i,i1,i2,i3,itmp:integer;
beginreadln(i1,i2,i3);
if i1 > i2 then i1 := i2;
if i1>i3 then i1:=i3;
writeln('min value:',i1); // Insert user code here
end.
{$APPTYPE CONSOLE}
uses SysUtils;var
i,i1,i2,i3,itmp:integer;
beginreadln(i1,i2,i3);
if i1 > i2 then i1 := i2;
if i1>i3 then i1:=i3;
writeln('min value:',i1); // Insert user code here
end.
解决方案 »
- 关于导入内存的问题
- 有人用过delphi2009下的indy控件吗,我用idsnmp出现问题
- 请问怎么把符合datetimepicker1与datetimepicker2之间的日期表示出来?
- 我的信誉分去哪了?
- update修改access数据库中的表,为什么总出现提示说“update有语法错误”?
- Fastreport中"加"字的Bug怎樣消除?(個人認為特難)
- 怎样在sql server 2000 中取得存储过程和扩展存储过程的返回值!谢谢!
- 如何用回车键控制当前光标的移动(设置TabOrder的值)
- 有些困惑,,,,,,,,,
- 如何将dbgrid的内容保存到word 或excel文挡
- D5版ACM(Audio Compression Manager)测试版发布
- 怎么给dbgrid加一个计算列??
{$APPTYPE CONSOLE}
uses math;var
a,b,c,temp:integer;
beginreadln(a,b,c);
temp := min(min(a,b),c);
writeln('min value:',temp);
readln ;
end.