Ile Liczb jest w ciagu.txt

(0 KB) Pobierz 
program ile_liczb;

uses Crt;

var a,i :real;

	begin
	ClrScr;
	i:=0;
	repeat
	writeln('Podaj liczbe');
	readln(a);
	if a<>0 then
	i:=i+1
	until a=0;


	writeln('W ciagu jest',i:6:2);
        readln();

	end.

Plik z chomika:

Inne pliki z tego folderu:

Inne foldery tego chomika:

Zgłoś jeśli naruszono regulamin