>> 8 .

3.5

,

3.5.4.

, . , . , , .

. , ( , ) .

, repeat.

    program n_17;
        var n, k1, k2: integer;
    begin
        k1:=0;
        k2:=0;
    repeat
            write (' >>');
            readln (n);
            if n>0 then k1:=k1+1;
            if n<0 then k2:=k2+1;
        until n=0;
        writeln (':');
        writeln (' - ', k1) ;
        writeln (' - ', k2)
    end.

, n ≠ 0. while:

    program n_18;
        var n, k1, k2: integer;
    begin
        k1:=0;
        k2:=0;
        while n<>0 do
        begin
            writeln (' >>') ;
            read (n);
        if n>0 then k1:=k1+1;
        if n<0 then k2:=k2+1;
        end;
        writeln (':');
        writeln (' - ', k1);
        writeln (' - ', k2)
    end.

, for . , for. , , .

 

 

@Mail.ru