１から５までの和を求めて表示 (初期化子)

明解Ｃ言語 入門編 > 4. プログラムの流れの繰り返し >

１から５までの和を求めて表示 (初期化子)

Delphi

program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;

var

    no:  Integer = 1;

    sum: Integer = 0;

begin

    repeat

        sum := sum + no;

        inc(no);

    until no > 5;
    writeln(format('１から５までを足した値はは%dです。', [sum]));

end.

実行結果

S:\>lesson026\project1.exe

１から５までを足した値はは15です。