Ĺadny brzuch
Czy może ktoś wie jak napisać program w pascalu, który dodaje kolejne liczby, do momentu gdy wpiszemy 0, wtedy sumuje wszytskie wpisane liczby i podaje wynik. Z góry dziękuje za odpowiedź
uses crt; var suma, x:integer; begin clrscr; suma:=0; repeat readln(x); inc(suma,x); until x=0; writeln('suma liczb = ',suma); readkey; end.
Użytkownik Cyrkiel edytował ten post 05 kwiecień 2006, 17:04
dzięki bardzo :rolleyes:
Użytkownik wader edytował ten post 05 kwiecień 2006, 18:14
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
uses crt; var suma, x:integer; begin clrscr; suma:=0; repeat readln(x); inc(suma,x); until x=0; writeln('suma liczb = ',suma); readkey; end.
Użytkownik Cyrkiel edytował ten post 05 kwiecień 2006, 17:04
dzięki bardzo :rolleyes:
Użytkownik wader edytował ten post 05 kwiecień 2006, 18:14