Procedure Chisla(n : Integer); var a : Integer; begin if (n < 1) then WriteLn else begin Read(a); if (Abs(a) < 1000) then begin Chisla(n-1); Write(a,' '); end else Chisla(n); end;end; function ReadN() : Integer; var n : Integer;begin Write('n='); ReadLn(n); if Not(n in [0..1000]) then n := ReadN(); ReadN := n;end; var n : Integer; begin n := ReadN(); WriteLn('Введите ', n, ' целых чисел через пробел и нажмите Enter'); Chisla(n); end.
1. Числа можно вводить int k,l; cout<<"->"; cin>>k>>l; if (k==l) { k=0; l=0; cout<<k<<" "<<l<<endl; } else { l=k; cout<<k<<" "<<l<<endl; } если хочешь без ввода удали cin и присвой значения
2. int k,l,z; cout<<"->"; cin>>k>>l>>z; if (k>0) { k*=k; cout<<k<<endl; } if (l>0) { l*=l; cout<<l<<endl; } if (z>0) { z*=z; cout<<z<<endl; } if (k<0) { cout<<k<<endl; } if (l<0) { cout<<l<<endl; } if (z<0) { cout<<z<<endl; }
+ 11 + 111 +101110
10001 11110 1100101