Program dodaje liczby dopóki suma nie przekroczy wartości 100

Program dodaje liczby dopóki suma nie przekroczy wartości 100, po zakończeniu program ma zapytać czy kontynuować.

program dodawanie;
var wylacz:char;liczba:byte;dodaj:byte;
begin
repeat
liczba:=0;
while(100>=liczba) do
        begin
        write('Podaj liczb© którą mam dodać: ');
        readln(dodaj);
         liczba:= liczba+dodaj;
         writeln(liczba);
        end;
write('Kontynuować? t/n: ');
readln(wylacz);
until(wylacz='n');
end.

Dodaj komentarz

Twój adres e-mail nie zostanie opublikowany.

Możesz użyć następujących tagów oraz atrybutów HTML-a: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>