Niezalogowany (Zaloguj się)
WItaj Gościu! Możesz się teraz zalogować lub poprosić o członkowstwo na Forum Turbo Pascal Web Pag

Turbo Pascal: Napisz program, który czyta kolejne liczby i liczy ich sumę, aż do wpisania 0 przez uzytkownika.

W dół

Od 1 do 1 z 1

  1.  
  1.  
    program licz_0;
    var
    suma,liczba: integer;
    begin
    suma:=0;
    REPEAT
    writeln ('podaj liczbe');
    readln(liczba);
    suma:=suma+liczba;
    writeln('suma liczb wynosi',suma);
    until liczba=0;
    writeln ('koniec');
    readln();
    end.

Od 1 do 1 z 1

  1.