Pascal - Konsolowe

Ilość liczb

Ilość liczb
Pascal - Konsolowe

Program: zliczający ilość liczb podanych przez użytkownika.

Liczby są tak długo zliczane, aż użytkownik poda liczbę 0. Wtedy program zlicza ich ilość (pominąwszy liczbę 0).

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program ileliczb;
uses crt;
var a,b:integer;
begin
     clrscr;
     repeat
           write('Wprowadz liczbe: ');
           readln(a);
           b:=b+1;
     until
     a=0;
     write('Ilosc liczb: ',b-1);
     readln;
end.