- 1 名前：デフォルトの名無しさん mailto:sage [2005/11/23(水) 23:31:08 ]
- Delphi初心者が問題をコツコツと解きながらレベルアップするためのスレです。
- 22 名前：デフォルトの名無しさん mailto:sage [2005/11/29(火) 09:01:26 ]
- >>20
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
i, j: Integer;
len: Integer;
StartTime: TDateTime ;
EndTime: TDateTime ;
Hour, Min, Sec, MSec: Word;
str: String;
begin
Readln(str);
StartTime:=Now;
len:=Length(str);
i:=1;
while str[i]<>'=' do
begin
Write(str[i]);
Inc(i);
- 23 名前：デフォルトの名無しさん [2005/11/29(火) 09:02:09 ]
- if i>len then
begin
Writeln;
Writeln('=が見つかりませんでした');
Readln;
Exit;
end;
end;
Write('は');
Inc(i);
for j:=i to len do
begin
Write(str[j]);
end;
Writeln('です');
EndTime:=Now;
DecodeTime(EndTime-StartTime, Hour, Min, Sec, MSec);
Writeln(Hour,'時間',Min,'分',Sec,'秒',MSec);
Readln;
end.
//ここまで。よろしくお願いします。
|
 |
