>> 8 .

3.5

,

3.5.2.

(-) repeat.

:

    repeat <1; 2; ...; > until <>

:

    <1>; <2>; ... , ;

    <> ; , .

. 2.4.3 ( 17) .

    program n_15;
        var i: integer; : real;
    begin
        writeln ( ');
        i: =1;
        x: =10;
        repeat
            i: =i + 1;
            x:=x+0.1*x;
        until x>=25;
        writeln (' c ', i, '-
                25 ')
    end.

 

 

@Mail.ru