Odpowiedzi do zadań 1-10.

Odpowiedzi :
Zad1

Program jeden;
var
n:real;
w:integer;
begin
write('ile metrów? ');
readln(n);
w:=0;
while n>0.01 do
begin
n:=n-0.1*n;
w:=w+1
end;
writeln('Pilka odbije sie ',w,' razy')
end.