| informa |
| clc clear all disp('Program TOTO'); p=6; n=6; disp('podaj 6 liczb z zakreesu 1-49'); B=zeros(1,n); for j=1:n por=0; while B(j)<1 | B(j)>49 | por==1 liw=input(strcat(num2str(j),' liczba: '));1 if size(liw)==[1 1] B(j)=liw; end por=0; for k=1:j-1 if (B(k)==B(j)) | (liw<1) | (liw>49) por=1; end; end; end; end; B=sort(B); disp(strcat('podales liczby:',num2str(B))); |