私は100億回のループを実行する必要があり、実行に失敗しました。私は序数的エラーを得ています。 program kittu;
var i:qword;
j:qword;
k:qword;
begin
i:= 10000000000;
k:= 0;
for j:=1 to i do
begin
k:=k+1;
パスカルをよく知っている人の助けが必要です。 私はバリアントレコードを使用するために（教師の必要条件が）必要です。これらのバリアントレコードは、次のように定義されています。 Temperature = record
case scale : TemperatureScale of
celsius : (celsius_value : ScaleCelsius);
ke
プログラムの一部入力番号が完全な数であるかどうかをチェックします。私たちは、O（sqrt（n））で実行される解を見つけるはずです。残りのプログラムは一定の時間内に実行されますが、この機能は私を後押ししています。 function Perfect(x: integer): boolean;
var
i: integer;
sum: integer=0;
begin