“Pascal, podczas gdy” Kod odpowiedzi

Pascal Loop

Program PascalRepeatLoop;
Var 
number:integer;

begin
    number := 1;

    //REPEAT-UNTIL Statement - Post Condition Repetition
    Repeat      
        Write('Enter an integer number: ');
        readln(number);
    Until number = 0;       //Run code above, until "number" is 0
    
    Writeln();
    Writeln('Program Ended');
End.
ALeonidou

Pascal, podczas gdy

Program PascalWhileLoop;
Var 
number:integer;

begin
    number := 1;

    //WHILE DO Statement - Pre Condition Repetition
    While number <> 0 do    //Run code below, while "number" is not 0
    begin
        Write('Enter an integer number: ');
        readln(number);
    end;
    
    Writeln();
    Writeln('Program Ended');
End.
ALeonidou

Odpowiedzi podobne do “Pascal, podczas gdy”

Pytania podobne do “Pascal, podczas gdy”

Przeglądaj popularne odpowiedzi na kod według języka

Przeglądaj inne języki kodu