var s : string[50]; i, j, k : word; f : boolean; function isSpace(ch : char) : boolean; begin isSpace := false; if ch = ' ' then isSpace := true; end; begin f := false; repeat j := 0; writeln('введите строку, состоящую из 2 слов'); readln(s); for i := 1 to length(s) do if isSpace(s[i]) then begin inc(j); k := i; end; if j =1 then f := true; until f; write(copy(s, k + 1, length(s)), ' ', copy(s, 1, k - 1)); end. недавно такую писала :)
#include <iostream> #include <iomanip> using namespace std;
int main() { int n,k; cout<<"n = "; cin>>n; int a[n],b[n]; srand(time(NULL)); // запись в массив for (int i=0; i<n; i++) { a[i]=15-rand()%30; cout<<a[i]<<" "; } cout<<endl; // сортировка массива по убыванию for (int i=0; i<n-1; i++) for (int j=i+1; j<n; j++) if (a[j]>a[i]) swap(a[i],a[j]); // поиск первого отрицательного k=0; while (a[k]>=0) k++; // запись положительных по убыванию for (int i=0; i<k; i++) b[i]=a[i]; // запись отрицательных по возрастанию for (int i=k; i<n; i++) b[i]=a[n-i+k-1]; // вывод массива b for (int i=0; i<n; i++) cout<<b[i]<<" "; cout<<endl; system("pause"); return 0; }
Можно заменить Println на writeln или write, суть не меняется.
sqr(x) возвращает квадрат x.
Ну а остальное знать должны.
Вот примеры-доказательства верного выполнения программы: